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1.0 

INTRODUCTION 


1. 1 

Obiective 



The evaluation and ultimate definition of an integrated Shuttle ETC/LSS is an evolu- 
tionary process which reflects frequent changes in both technical and program related 
requirements. To support the NASA, Shuttle vehicle primes and in-house IRD, 

Hamilton Standard has developed an ETC/LSS computer program which provides 
accurate and rapid responses to these changing requirements. This design optimiza- 
tion tool has proven invaluable, saving countless hours of hand calculations and 
allowing the conceptual and preliminary design study phases to proceed in a compre- 
hensive fashion. . Two key features, which have made this computer model unique and 
of significant. benefit to both Hamilton Standard and the people it supports, are: 

a. Simplicity - ease of use/flexibility relative to schematics and 
requirement changes; and 

b. Subroutines - unique models representing the "true" analytical 

descriptions of the mechanical and chemical processes under 
evaluation. / 

Under NASA sponsorship (NAS 9-12411), this program has been expanded and upgraded 
to meet the design evaluation demands of the forthcoming Shuttle phases. These 

demands include continuation of trade-off studies to further validate selections, 

/ 

expansion of these studies to include new requirements, and initial performance evalua- 
tions (steady state off-design transients) required to support development. 
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1.1 (Continued) 

The objective of this document is to define this expanded computer program and 
provide the user with sufficient information for running and modifying the program as 
desired for the NASA-MSC computer facilities. 


1. 2 Outline 

An outline of this document is presented in Table 1-1. 
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TABLE 1-1 

USER'S MANUAL - OUTLINE 

1.0 INTRODUCTION 

1. 1 Objective 

1.2 Outline 

2.0 BASIC OPTIMIZATION PROGRAM 

3.0 PROGRAM CHANGES 

3.1 Sizing Program Changes 

3.2 Off Design Performance 

3.3 Radiator/Evaporator Expendable Usage 

3.4 Component Weights . 

4.0 OPERATING PROCEDURES 

4. 1 How to Set Up Deck 

4. 2 Program Input and Output 

4.3. How to Vary Program ■ 

APPENDIX I 

Logic Flow Diagrams of . 

1. Main Program 

2. Condensing Heat Exchanger Subroutine 

3. Sensible Heat Exchanger Subroutine 

4. LiOH Subroutine 
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TABLE 1-1 (CONTINUED) 

APPENDIX I (continued) 

5. 

Contaminant Control Subroutine 

6. 

Fan Weight Subroutine 

7. 

Valve Weight Subroutine 

8. 

Qmet Subroutine 

9. 

Sensible Heat Exchanger Off Design Subroutine 

10. 

Flash Evaporator Subroutine 


APPENDIX II 
Subroutine Descriptions 

APPENDIX III 
Logic Flow Diagrams 
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A simplified logic diagram of the program is shown in Figure 2-1. The computer 
program consists of a "main line" program which does bookkeeping and a number of 
subroutines which calculate subsystem or. component weights for the required 
performance. The "main line" program is "keyed" to select the desired subroutines 
(either condenser or solid amine for example) for the system under consideration. 

If other schematic arrangements are desired, it is a simple matter to change the 
"main line" program to select the subroutines in a different order or add other 
components. 

There are three convergence loops in the program: 

a. Condenser air outlet temperature/heat exchanger size 

b. Interface heat exchanger outlet temperature 

c. Radiator outlet temperature 

When using a condenser, the air outlet temperature is initially set 2°F above the 
condenser coolant inlet temperature and the heat exchanger, fan, valve, and power 
equivalent weight calculated. The air outlet temperature is then increased in 1°F 
increments until the total equivalent weight is found to increase over the previous 
iteration. The previous iteration is then used as the condenser weight and perfor- 
mance. 

The interface heat exchanger water loop outlet temperature for the first iteration is 
set by input data. For this value, the condenser and sensible heat exchanger are 
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FIGURE 2-1. OPTIMIZATION COMPUTER PROGRAM LOGIC 
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2.0 (Continued) 

optimized and the weight of pumps, fans, radiator, and other components are 
calculated and summed. The interface outlet temperature is then raised in 1°F 
increments until either the condenser or sensible heat exchanger can no longer 
provide the required cooling. The minimum total equivalent weights for various 
interface heat exchanger outlet temperatures are then compared and the minimum 
value stored. 


The radiator outlet temperature is then raised by an input delta and the process 
repeated. When the cabin heat exchanger(s) cannot provide the required cooling 
(even at the lowest cabin loop temperatures), the minimum total equivalent weights 
for each radiator outlet temperature are compared and the minimum value selected. 
The case with lowest total equivalent weight is then recalculated and the weights, 
powers, flow rates and temperatures for the optimum case printed. 

A simplified schematic of the ETC/LSS used by the computer program is shown in 
Figure 2-2. In the box labeled "Cabin Ventilation, CO 2 Removal, Humidity Control 
and Temperature Control" several different combinations of CO 2 removal and humidity 
control concepts can be used. A typical schematic of the LiOH/Condenser Approach 
is shown in Figure 2 -3. 

Items that can be varied when comparing optimized systems are: 

a. Cabin conditions (temperature, pressure, maximum relative 
humidity, etc.) 
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b. Heat loads (metabolic sensible, metabolic latent, fuel cell, etc. ) 

c. Radiator loop flow rate and properties 

d. Mission parameter (length, power penalty, etc. ) 

e. Which subsystems to use (Li OH or solid amine for CO 2 ; condenser or 
solid amine for humidity control, etc. ) 

f. Component data (pressure drops, fixed weights, structural weight 
factors, component weight factors, tables of optimization data, 
radiator influx, etc.) 
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3. 0 PROGRAM CHANGES 

Program changes fall into four categories: 

a. Changes to the sizing program (Basic Optimization Program) 

b. Addition of "off design" performance calculations 

c. Addition of loop to calculate the amount of water or cryogenic 
hydrogen required to supplement the radiator around an orbit 

d. Addition of selected component weight calculations 
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Changes to the sizing program consist of additions, deletions, and a more detailed 
print Out. The items deleted were the Desiccant, Hydrogen Depolarized Cell, and the 
Molecular Sieve Subroutines. As previous studies have shown these subsystems, to 
be non-competitive, it was decided not to expand them to include "off design" perfor- 
mance calculations and, additionally, .to delete them from the sizing program. 

The additions made to the sizing program are: 

a. A loop to calculate the optimum coolant flow rate 

b. Additional components 

1. ' Flash Evaporator 

2. Fuel Cell Heat Exchanger 

3. GSE Heat Exchanger 

4. : Separate Avionics Bay (with the capability to consider 

two bays in series using common hardware) 

5. Cryogenic Heat Exchanger 

c. Ability to change component parameters by input data 

1. Input fan and pump overall efficiency 

2. Input the number of fans, check valves, and pumps 

d. The radiator subroutine was changed to account for different delta 
temperatures between the fluid and wall at the inlet and outlet 

In order to facilitate the running of the program, a convergence subroutine was added to 
optimize the coolant flow rate. If a flow rate is given in the input, the program will 
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use the input value as the first guess of. flow rate. If the input value is zero or 
negative, the program will calculate a minimum, coolant flow rate to be used for the 
first iteration. If the program does not converge with the original flow rate, the 
total equivalent weight, is set to a large value and the flow rate is increased by an 
inputted factor. At the end of each radiator outlet temperature loop, the optimum 
total equivalent weight for that flow rate is compared to the optimum equivalent 
weight for the previous flow rate. If the weight is lower, the flow rate is again 
increased. If the weight is higher, the program goes back to recalculate the optimum 
condition (Wcoolant, Tradiator out, Tinterface hx out, Wair, etc.) and prints the 
optimum condition. It is also possible to run only one condition by setting an input 
key. The program will then use the input TRO and Wc and only optimize the heat 
exchangers. 

The program has been changed to allow the radiator to be supplemented with: 

a. Sublimator 

b. Flash Evaporator 

c. Cryogenic Hydrogen Heat Exchanger 

If the maximum radiator area is too small to handle the required heat load, the 
excess heat load is rejected by the supplementary heat sink using an input expendable 
penalty. In addition, . the supplementary heat sink will be used for a period of time 
(input) to handle the entire heat load. This simulates the time when the radiator is not 
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exposed to space. Three supplementary heat sinks are capable of being provided — 
cryogenic heat exchanger, sublimator or flash evaporator. If the cryogenic heat 
exchanger is .desired, no additional input data is necessary except the expendable 
penalty. The cryogenic heat exchanger subroutine automatically calculates the heat 
exchanger weight and adds this value to the system total equivalent weight. If the 
cryogenic heat exchanger is not desired, then the component weight factors must be 
set to zero by input. The use of either a sublimator or flash evaporator must be 
selected and the necessary weight penalty factors included in the input data. 


The fuel cell heat exchangers are sized to meet the input temperature requirements. 
The mass flow rate (W x Cp) of the fuel cell 'loop required, based on the fuel cell heat 
load and temperatures, is calculated and stored in the input data block. For off- 
design performance, the fuel cell loop temperatures are calculated based on Freon 
loop temperatures, heat exchanger size, and fuel cell loop flow rate. The heat 
exchanger is sized as a single unit capable of rejecting the entire heat load. If some 
type of parallel arrangement is used, the weight penalty would be equivalent to the 
single unit weight. 


The GSE heat exchanger is sized to reject the maximum vehicle heat load. The GSE 
fluid inlet temperature is considered to be 0°F and the mass flow ratio is set at 2. 

With the addition of air cooled avionics on the Shuttle, a special subroutine was 
developed that sizes a heat exchanger with the desired number of fans to remove the 
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heat from a separate compartment. The heat exchanger air flow rate is optimized to 
obtain the minimum total equivalent weight of the heat exchanger and fans. An initial 
air outlet temperature is assumed to be 2°F higher than the coolant inlet temperature. 
The required air flow, fan power, and component weights are calculated. The air 
outlet temperature is then increased 2°F and a new total equivalent weight is calculated. 
This process continues until the total equivalent weight is higher than the previous 
iteration. The values for the previous (lightest) iteration are used for system weight. 

EBAY2 is a subroutine that sizes two avionics compartments in series. The compart- 
ments have the same. ECLSS equipment. The subroutine calculates the equipment 
size (heat exchanger and fans) required to meet performance in the second (downstream) 
compartment. The air temperature of first (upstream) compartment is then calculated 
using the equipment sized for the downstream compartment. If the desired compart- 
ment temperatures are not met, the equipment is resized to meet the temperature 
requirements of the first compartment. The temperature of the downstream compart- 
ment is recalculated with the larger sized equipment. The optimization of the heat 
exchanger/fan air flow rate is similar to that explained in the paragraph above. 

The basic program has the ability to change heat exchanger characteristics by changing 
the weight factors. It is also possible to now change other components such as the 
number of fans, number of pumps, number of HS-C canisters, etc., by changes to the 
input-data. This is useful as several of prime contractors are using different numbers 
of components. 
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As heat loads change, flow rates and pressure losses also change. In order to better 
match the expected fan. and pump efficiencies, these variables were made inputs to the 
computer program. 

Recent radiator studies have shown that the difference in temperature between the 
fluid and the wall will vary considerably between the inlet and outlet of the radiator. 
The radiator subroutine was rewritten to account for this difference. At present, 
there is a predicted 15°F difference between the fluid and wall at the radiator inlet 
and a 5°F difference at the outlet. 
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3,2 

Off -Design Performance 



The inputs required for the "off -design" performance section of the computer program 
are: . 

a. Air volumetric flow rates 

b. Heat exchanger sizes 

c. Pump and fan powers 

d. Coolant flow rates 

e. Heat loads 

f. Desired control temperatures 

All of these parameters are calculated by the sizing program and stored in the input 
data block. If an "off -design" performance case is run after a "sizing" case, the 
only inputs required are the changes to heat loads, cabin temperature or cabin 
pressure desired. If an "off-design" case is to be run without a "sizing" case 
preceding it, the above parameters must be inputted. 

The program first calculates the total vehicle heat loads and then the radiator inlet 
temperature. The program then goes to the desired heat rejection method: 


a. 

Radiator/expendable (if required) 

b. 

. Expendable heat sink only : 


1 . 

Sublimator 


2. 

Flash evaporator 


• 3. . 

Cryogenic heat exchanger 
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3.2 (Continued) . 

If a sublimator is used, the heat sink inlet and outlet temperatures must be iterated 
as the temperatures are a function of the sublimator size and vehicle heat load. 


In calculating: the total vehicle heat load, the sensible and latent heat of the LiOH must 
be included. The LiOH subroutine has been expanded to also calculate the CO 2 partial 
pressure resulting from both a new cartridge and the level at which the cartridge 
would normally be changed. 


Once the interface heat exchanger heat load and radiator loop inlet temperature is 
known, the cabin loop outlet temperature is calculated by a subroutine called HX. This 
subroutine calculates the hot side outlet temperature based on the heat load, heat 
exchanger size, coolant flow rates, and cold side inlet temperature. This subroutine 
is used for all of the sensible heat exchangers. 


The program then enters a loop on cabin temperature. This loop is needed only if 
there is a sensible heat exchanger. After entering the loop the program selects the 
water removal subroutine— either HS-C or a condenser. The HS-C subroutine 
calculates the cabin water vapor partial pressure or determines the air flow required 
for humidify control. Based on the flow through the beds, the CO 2 partial pressure 
is also calculated. The program then goes to the sensible heat exchanger. 

If a condenser is used, a key is set to tell the condenser subroutine if there is a 
sensible heat exchanger also. If there is no sensible heat exchanger, the condenser 
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subroutine CX2 calculates the air flow required through the heat exchanger to meet 
the required cabin temperature and the cabin dew point. If the cabin temperature 
cannot be met, the cabin temperature is raised in 1°F increments, until the heat 
exchanger can remove the heat load. As the cabin temperature is raised, a sub- 
routine QMET calculates a new latent/sensible metabolic heat load split for the new 

cabin temperature. 

If there is also a sensible heat exchanger, the condenser subroutine calculates the 
sensible load removed by the condenser and the cabin dew point. 

If there is a sensible heat exchanger, the Hx subroutine calculates the air flow through 
the heat exchanger required to reject the remaining sensible heat load. If the heat 
load is negative, a message is printed that a reheater is required and the program 
continues. If the heat Exchanger cannot remove the required heat load, the cabin 
temperature is increased 1°F, the metabolic latent/sensible load split recalculated, 

and the program returns to the water, removal subroutine. If the temperature is 
raised 15°F and the heat exchanger still cannot meet the load, a message is printed 
and the case continues. 

If there is a water cooled avionics bay, the compartment temperature is calculated 
in a manner similar to that used for the interface heat exchanger. 

Temperatures into and out of the other components (pump, fuel cell heat exchanger, 
etc.) are calculated in a similar manner and the results printed. 
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A section has been added to the program to determine the maximum nominal and 
minimum evaporating rates of expendables required to supplement the radiator 
over an entire orbit. The program calculates steady state performance at 
discrete orbital positions. 


The inputs required are the vehicle heat loads, coolant flow rate, radiator charac- 
teristics (a, €, Area, etc.), evaporator characteristics, and the radiator influx 

versus orbital position. It is assumed that the influx is modified to account for 
radiator mass. 


The program sums the vehicle heat loads, finds the radiator influx for the orbital 
position, and calculates radiator outlet temperature. If the temperature is higher 
than the required temperature, a secondary sink is used: 

a. Sublimator 

b. Flash Evaporator 

c. Cryogenic Heat Exchanger 

If a sublimator is used, a convergence loop is used to find the proper load split 
between the radiator and sublimator. 


The program prints the average rate of expendable usage as well as the radiator inlet 
and outlet temperatures and the rate of expendable usage for each orbital position. 

Up to: 3 0 steps may be used for each orbit. 
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Component Weights 

The weights printed for each subsystem are a buildup of the individual component 
weights within the subsystem. Generalized routines are used to calculate fan weights, 
as a function of flow and pressure rise; valve weights, as a function of type and flow; 
heat exchanger weights, as a function of UA, etc. In addition, fixed weights for 
items such as controllers, disconnects, accumulators, etc., are added. Finally, 
a structural weight factor is included to account for packaging consideration. Since 
heat exchangers usually include mounting provisions as an integral part of their design, 
structural weight factors are not applied to heat exchangers as the basic weight models 
include these mounting provisions. Table 3-1 shows the general weight equations used 
for the subsystem weights. Table 3-2 shows a breakdown of the subsystems, what 
components are included within each subsystem, and the source of weight values - F, 
for fixed weight that does not change with various conditions and P, for weight values 
calculated by the program as a part of the optimization process. All symbols are 


described in Appendix I. 
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TABLE 3-1 . 

WEIGHT EQUATIONS 

> Weight Equations 

WT. = (FWT(L)*CFT(L)+FXW(L)fSWT(L) 

WH20 = QR/965 

WT = (WL*FWT(J) +FXW(J)+2. *WTM)*SWT(J) 

WL = WC02*DAY*1. 145 

WT - AR*SWT(J) + FXW (J) 

WT = FWT (J) *UA + (FXW (J) +WTV) *SWT (J) 

WTHX= FWT (J) *UA + FXW (J)*SWT (J) 

WTFAN = (FWT(J+1)*(WTF+WTK)+FXW(J+1))*SWT(J+1) 

WTS = (FWT (J) * (WBS+WTX+WTV) +FXW (J) +WV C ) *SWT (J) 
WTF = (WTF+3, *WTK)*SWT(12) 

WTV = VACUUM VALVE WT. 

WTC = CONTROL VALVE WT. 

WTX = CANISTER WT. 

WUS = 83 » 4*RHO*DA Y* WBS/C YC L 

WT = j^WTB*FWT (J)+WTV)+FXW (J)j *SWT (J) 

WTHX = [FWT<J)*UA+FWX(J)*SWT(J)J *2. 

WTFAN = |jFWT(J+l)*(WTF+WTK)+FXW(J+l))*SWT(J+l)j*2. 

WT = FWT(J)*UA+FXW(J)+WTV*SWT(J) 

WT = joVC/RHO*.0748*DP)°‘ 4 *FWT(J)+FXW(J)j *SWT(J) 

. WT = CFT(J)*FWT(J)+FXW(J) 
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TABLE 3-1 (CONT) 
WEIGHT EQUATIONS 

Subroutine Weight Equations 


SUBLo WT WT = 

WSUB - 

CRYO„ HX WT 

WHYD = 

F/C HX&GSEHX WT 
EXPEND WT WT = 

COND FAN WT 

SENS FAN WT 

VENT FAN WT 


FWT(J)*UA+FXW(J)*SWT(J) 

Q/1065. *TSUB 

FWT(J)*CFT(J)+FXW(J)*SWT(J) 

Q/1440*TCRY 

UA*FWT(J)+FXW(J)*SWT(J) 

Q*FEXP 

(FWT(J)*(WCF+WCV)+„ 9*WCF+FXW (J))*SWT (J) 
(FWT (J) * (WSF+WSV )+. 9*WSF+FXW(J))*SWT (J) 
FWT(J)*WTF ■ 


All Symbols Explained in Appendix 1. 
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TABLE 3-2 

COMPONENT AND SUBSYSTEM LISTING 


Subsystem Component No. Required 

Water Removal/Condenser 

HX : 1 

Temperature Control Valve (If no sens. HX) 1 

Temperature Controller (Dual) 1 

W/S Gutter /Duct 1 


Sensible HX 

HX 1 

Temperature Control Valve (Air) 1 

Temperature Controller (Dual) 1 

Water Separator 

W/S . 1 

Air Check Valves 2 

H2O Check Valves 2 


Water Loop Pump Package 

Water Pump 

Check Valves 

Accumulator 

Filters 

Valve, Shutoff, Manual 
Potable H 2 0 
Chiller 


3 

3 

3 

2 

2 

1 

1 
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Weight Source 

P 

P 

F 

F 

P 

P 

F 

F 

F 

F 

P 

F 

F 

F 

F 

F 

F 
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TABLE 3-2 (CONT) 

COMPONENT AND SUBSYSTEM LISTING 


Subsystem Component 
Disconnects, Liquid 
Disconnects, Gas 
Low Pressure Sensor 
Pump Switchover 

Interface HX 
HX’s 

Pumps Freon Loop 
Water Pump 
Check Valves 
Accumulator 
Filter 

Valve, Shutoff Solenoid 
Disconnects, Liquid 
Disconnects, Gas 
Low Pressure Sensor 
Pump Switchover 

Water Evaporator - Sublimator 
HX 

Shutoff Valves, Solenoid 


No. Required 
5 
3 
2 
1 

2 

3 

3 

3 

2 

2 

5 

3 
2 
1 

2 

4 
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Weight Source 
F 
F 
F 
F 

P 

P 

F 

F 

F 

F 

F 

F 

F 

F 

P 

F 
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TABLE 3-2 (CONT) 

COMPONENT AND SUBSYSTEM LISTING 


Subsystem/Component 
Shutoff Valves, Manual 
Pressure Regulators 

CO 2 Control - Li OH 
Cartridges 

Valves, Shutoff, Manual 

Ventilation Fans 
Fans 

Silencer /Screen 

Condenser Fans 
Fan 

Check Valve 

Silencer/Screen (.9 Fan) 

Sensible Fans 
Fan 

Check Valve 

Silencer /Screen (. 9 Fan) 

Contaminate Control 

Cartridge 

Check Valve 


No. Required 

5 

3 

P 

2 

2 

1 

3 

3 

1 

3 

3 

1 

1 

1 


SP 01T72 


Weight Source 
F 
F 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 
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TABLE 3-2 (CONT) 

COMPONENT AND SUBSYSTEM LISTING 


Subsystem Component 
Avionics Bay - Water Cooled 
HX 
Fan 

Check Valve 
Fan Speed Sensor 

Avionics Bay - Freon Cooled 

HX 

Fan 

Valve Check 
Fan Speed Sensor 

Fuel Cell HX 
HX 

Cryo Hx 
HX 

Valve, Shutoff Solenoid 
Valve, Control 
Temperature Controller 

Water Evaporator - Flash 
HX 

Solenoid Shutoff Valves 


No. Required 


1 

3 

3 

1 

3 

3 

3 

3 

2 

6 

3 
2 

2 

4 
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Weight Source 


P 

P 

P 


P 

P 

P 

F 

P 

P 

F 

F 

F 

P 

F 
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TABLE 3-2 (CONT) 

COMPONENT AND SUBSYSTEM LISTING 


Subsystem/Component 
Manual Valves . 

Temperature Controllers 

Other 

Chiller (with water pumps) 

Cooler (with water pumps) 

GSE Cooling 
HX 

Disconnects 
Cold Plates 

HS-C Subsystem 
Beds & Canisters 
Valves, Cycling 
Valves, Vacuum 
Timer (triple) 

Humidity Control Valve 
Humidity Controller (Dual) 

Humidity Sensor 
Gas Actuator Valves 
Radiator 
Panels 

Hinge, Valves, Controls, Orifices, Etc. 


No. Required 
4 
2 

1 

1 

1 

2 

4 

4 

4 

1 

1 

2 

3 

8 

1 

1 


Weight Source 
F 
F 

F 

F 

P 

F 

P 

P 

F 

F 

P 

F 

F 

F 

P 

F 
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3.4 (Continued) 

In order to run the HS-C or the orbital transient programs, tables of input data 
must be stored in the computer. Tables are set up in accordance with the following 
format. 

X ~ Name of data block where table is stored 
I ~ Location of first item in table within X 
X(l) ~ Table or curve number 
X(I+1) ~ Degree Interpolation choice (1, 2 or 3) 

X(I+2) = NX Number of X values 

X(I+3) = NY Number of Y values 

X(I+4) "X" Values in ascending order 

X(I+4+NX) "Y" Values in ascending order 

X (I +4 +NX+NY) "Z" Values in the following order 


Z(l,l), Z(l,2), Z(l,3), Z (1 , NY) 

Z(2, 1), Z (2, 2), Z(2, 3), Z (2 , NY) 

Z(NX, 1), Z(NX, 2), Z(NX, 3) Z(NX,NY) 


3-19/3-20 
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OPERATING PROCEDURES 




Hamilton U 

OIVlSlON OF UNITED AIRCRAFT CORPORATION 

SP 01T72 


Standard Pi® 


4.0 

OPERATING PROCEDURES 


4.1 

How To Set Up The Deck 



The data cards are set up as shown in Figure 4-1. The object of source deck with 
the system control cards are denoted by (1). The next card (2), the first data card, 
is a "comment" card. This card will be printed with the case. It must not be blank. 
The rest of the data for the first case is denoted by (3). The last card of (3) has a 
"minus" in the second field. This denotes the fact that this is the last data card for 
a particular case. The next case consists of another comment card (4) and what 
ever data it is desirable to change from the previous case. This is shown as (5). 
Again the last card in (5) has a "minus" in the second field. A run is ended by 
putting a blank card (6) at the end of the last case. 

All of the data cards with the exception of the "comment" card, are set up according 
to the format shown in Figure 4-2. A card is divided into 8 fields. The first field 
is one (1) digit long. In this field a number is noted telling the load routine how 
many pieces of input are on this card. The digit will be between 0 and 5. The 
second field is the location in the input data block into which the. first piece of infor- 
mation will be loaded. This field extends from the second digit to the 12th digit. 

A minus sign in this field will terminate a case. 

Field 3 contains the first piece of input data which is loaded into the location given 
m the second field. . The number may be punched anywhere within the field and must 
contain a decimal point. Data in fields 4, 5, 6, and 7 are loaded into sequential 
locations in the data block. The last field, locations 73 and 80 may be used as a 
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FIGURE 4-1 DECK SET UP 




• FIGURE 4-2 COMPUTER CARD SETUP 


4-3 




Hamilton 

Standard 


U 

DIVISION OF UNITED AIRCRAFT CORPORATION 


ft® 


SP 01T72 


4.1 (Continued) 

label. It is not examined by the computer and may contain any alpha-numeric char- 
acter desired. 

If a number does not appear in the second field, the data will be loaded into sequential 
locations from the previous piece of data input. The first data card in the case must 
have a location to place the data in the second field. 

Definition of input data including location and units are described in the next Section 
4. 2. Input required for a typical case is shown in Figure 4-3. If a second case is 
added afte.r the first case, the only input data that must be inputed is that desired to 
be changed. In the case shown in : Figure 4-3, the cabin temperature is changed from 
65°F to 70°F. . 

4. 2 Program Input and Output 

4.2.1 Input Definition 

The following information provides the input definition for operating the program. 
Information includes location, symbols, the printed label, description, and unit. 

An explanation of all symbols is presented in Appendix I. Typical printouts of 
the input data are shown in Figures' 4-4, 4-5, and 4-6 fora sizing case, per- 
formance case, and an orbital transient case, respectively. 
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1 "99 A 9 63 


INPUT DATA SHEET 


R„ Balinskas 


MAIL ADDRESS 


TEL. EX T. 


P RO GR AM NO. 


H247 


ESTIMATED COMPUTER TIME 













































































HSP 


I 199 A 9 63 


INPUT DATA SHEET 


N AM E R„ Balinskas 


MAIL ADDRESS 


TEL. EX T. 


P RO G R AM NO. H247 


T1 TLE 


ESTIMATED COMPUTER TIME 


SH EET 


2 


O F 


2 


JOB NO. 


keypuncher: 1. Do not verify title cords. 

2. Observe dotted lines only for numbers containing E. 


COMPUTER MODEL 


' PROGRAM INFO 

INPUT DATA 

LABEL 

n 

LOCATION NO, 


2 

3 

4 

5 

1 

3 

t 3 

21 

25 

33 

37 

43 

49 

57 

ei 

69 

73 BO 

5 

126. 

0. 


0. 


0. 


0. 


0. 



5 

131. 

18.3 


10.5 


12.3 


45.55 


0. 



5 

136. 

44.0 


999. 


22.1 


0. 


0. 



5 

141. 

0. 


0. 


0. 


44.3 


0. 



5 

146. 

0. 


0. 


0. 


0. 


0. 



5 

. 151. 

.8 


30.. 


0. 


0. 


— 

26,6 



5 

156. 

0. 


0. 


0. 


0. 

‘ 

0. 



5 

161. 

1.25 


1.25 


1.25 


1.25 


1.0 



5 

166.. 

1.25 


1.35 


1.25 


1.15 


1.0 



5 

171. 

1.25 


1.25 • 


1.25 


1.15 


1.15 



.5 

176. 

1.25 


1.25 


1.25 


. 1.25 


1.0 



5 

181. 

1.0 


1.25 


1.0 


1.25 


1.25 



5 

186. 

1. 


1. 


1. 


1. 


1. 



5 

221. 

0. 


0. 


0. 


.20 


0. 



5 

226. 

.22 


0. 


0. 


.6 


.35 



5 

231. 

.35 


.35 


0. 


0. 


0. 



5 

236. 

' 0. 


.35 


0. 


.35 


.0 



0 

-1. 













MULSS SIZ 

[NG CASE 

TCAB 

= 70 









1 

1. 

70. 










CO 

■hd • 

0 

-1. 











o 

I— 1 













H 

-a 


\ 


r 







. 




i 











1 



FIGURE 4-4. SIZING CASE INPUT 
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Reproduced from 
best available 


copy. 


PFR FOP NANCE. ' OATE 10/11/72 T IME le -55-33 


INPUT DATA 


73 .00 

TCAB 

1A.5C 

PC A B 

53.30 

PG AS 

34. or.c 

TP ADO 

1600.00 

WRAD 

1.00 

CPCOOL 

0 .25 

CP RAD 

62.40 

RHDC 

8? • CO 

RHOR 

13.20 

WCD2 

7.00 

DAYS 

2070.0 

QSMF T 

6700. C 

OSE NE 

1230.0 

OLMET 

17500.0 

0CP1 

Q,0 

QCP2 

23 330 . C 

QFCFLL 

420C. r 

OSURl 

1.0 

KFY CO? 

2.0 

KEY H?0 

2.00 

DT IHX 

0.010 

TOLP 

24003.0 

TVENT 

2.000 

DAYEM 

15.CC 

NO TR AO 

15. Or 

NO T I HO 

1.00 

RLANK 

1.00 

NO QLAT 

0.73C 

PHMAX 

1 .00 

WC/WR 

2 .0000 

DT RADO 

0.0 

EF FC 

0.1600 

ppf'i X 

c.oonc 

PPVAR 

0.0 

KEY HXS 

0.0 

KEY OPT 

20.0000 

NO WC 

1.0400 

FACT WC 

0.0 

KEY RAD 

0.0 

KEY CON 

2. ?5 

dp H?n 

1.3C 

OP SHX 

40.00 

OP CP 

<50.00 

DP RP 

2.25 

DP CO 2 

0.50 

DP VENT 

459.00 

T SINK 

0.24 

CPA 

o-'O.OC 

AMAX 

3.16 

FEXP 

0 .0 

OAMTN 

O.C 

OC PM 

O.C 

OF 1 

0.3 

OE2 

12C.OC 

TE1 

120.00 

TE2 

1. 30 

OPEL 

l . 3 r 

OPE 2 

0.0 

F PAO 

1 .10 

r C02 

' 2 .OC 

FN C02 

120.00 

TCNAX 

0. 16C 

C 02L 

0.0 

EFH2 0 

30 .0 

CYCLE 

C . 0 

OEB 2 













e.o 

OCHIL 

O.CAf 

TOLO 

657.1 

WF/C 

2.C 

KF YSK 

1046. 6 

WCOOL 

39.4 

TIFXI 

4 .OC 

TIMECY 

0.0 

T1MESB 

115. 0C 

if C T 

1 50.00 

t'f C 0 • 

1.0 

NUBFRH 

0 .9000 

EM IS 

20.0 

STEP 

o.o 

TORBIT 

2.0 

PFRF 



CD M n 0N FNT 

POWERS 

-watts 














D.C 

O.C 

C • 3 

84.54 

o 

o 

338.53 

O.C 

c.o 

0.0 

0.0 

411.60 

0.0 

0.0 

0.0 

0.0 


D.O 

0.0 

0. c 

0.0 

0.0 

C.000 

o.crc******** 

• 0.000 

C .000 

-0.000 

0 .00 0*** 1 ** *********** 

-o. ooo 


COM PON FNT 

FACTORS 

-UA, PFF, 

ETC. 













2300. 04 

0.0 

c.o 

0.20 

7504.62 

0.22 

889. P3 

1352.48 

O.fiC 

0.35 

0. 35 

0.35 

0.0 

0.0 

0.0 


0.0 

0.35 

0.0 

0.35 

3962. 73 

857.67 

221 • 1 1 ******** 

649.60 

0.00*******9 

15.00 

0.00* 

-4165.94-3433. 13 



COMPONENT FLOW RATES-CFH 

326 53. 9 30N0F 0.0 SENF 0.0 AVFAKH 0.0 AVFANP 0. 0 VFNTF 3960.0 L 13H 


cpi 


Q) 


0 ) 


£3 

& s 

a: 


DIG 


FIGURE 4-5. PERFORMANCE CASE INPUT 


SP 01T72 
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H?n requrieq. 


JNPUT_ DATA 
7 


00 TC AR 
95 . 00 RHOR 


"Z 3000.0 OFCELL 
_15.^0 Nn TRAP 


14 . 5 C PCAR 

13 . 2 c uco 2 


'4 200.0 OS O0L 
15.00 N O TJ HO 


0.1 600 PPF1X 
2. 25 OP H2C1 


"6. 00130 PPVAR 
1 . 3 C OP SHX_ 


POO . 00 AMAX 
1 . 30 ' OPJLL 


0.16 FFXP 
1.3C 0P E2 


30 lo' CYCLE 
0.0 OCHIl 


C.O 0E9 2 
Q. 04 C TOLQ 


116 . OC TFCI 


150.00 TFCC 


53.30 P GA S 
_Z_.ec days 

1.6 KEY C02 
1.00 BLANK 


■ o.o KEY HXS 
40.00 QP CP _ . 

0.0 QAMIN 
• 0.0 F RAO- 


34. COO TRAOO 

2070.0 QSMET 

2.0 KEY H20 
_ 1.00 NO PL AT 

o.o "kfy opt 
6 o._r.o op pp _ 

"" 0.6 OCPH 

1.1 P F CTO 


DATE 1 0/11/72 


TIME lfi -55-34 


1600. OC WRAD 
_6700. C J3SENF 
2.00 0T1HX 
0.7 30 P.HH AX 


20.0000 NO wr, 
2.25 OP C02 


6.0 0E1 

2.00 FN C02 


2.0 KEYSK 
1.0 NURFRM C .9000 EM IS 


657.1 WF/C 


1946.6 WCO OL 
20.0 STEP 


l“. 0 3 CP COOL 
1230i_0 OLMFT 
0.010 TOI P 
1.00 WC/WR 


~ 6.2 5 CPRAD 

17500.0 OCPi_ 

24000.0 TVENT 


62.40 RHOC 
0.0 QCP2 


2.000 DAYEM 

~3-pnno OT RAPO 0.6 EE EC 

W0400 FACT MC "0.0 KEY RAO 0.0 KEY CON 

0.50 O P VENT 459 .00 T SINK 0.24 CPA _ 


0.0 0E2 
1 20.00 TCMAX 


120.00 TE1 
0. 160 S02I. 


39. 4 T 1 EX 1 


4.00 T1MFCY 


120.00 TE2 

.0.6 EEH20 

0.0 TIHESB 


0.0 TOR BIT 


3.0 PERF 


A ' ‘ K 

f' 


s 

c 



> 

■4 

* 



3 

© 

- — i 

FIGURE 4-6. ORBITAL TRANSIENT CASE INPUT S 
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Standard A® 

SP 01T72 

T.OCATION 

PROGRAM 

SYMBOL 


DESCRIPTION 

UNIT 

1 

TCAB 

• . 

TCAB 

Cabin Temperature 

°F 

2 

PCAB 

PCAB 

Cabin Pressure 

psia 

3 

RA 

RGAS . 

i 

Cabin Atmosphere Gas 
Constant 

ft/°F 

4 

TROIN 

TRADO 

Radiator Outlet Coolant Temp. 

°F 




a) If value is 0 and EX in 
location 36 is 0, program 
will find initial radiator 
. outlet temp. 





b) If value is>0 and EX is 0, 
program will use input value 
as initial radiator outlet temp. 





c) If EX is>0, program will not 
optimize and will use input 
value for radiator outlet temp. 


5 

WCIN 

WRAD 

Radiator Loop Coolant Flow Rate 

lb/hr 




a) If value is)0 and EX in locatior 
36 is 0, program will use in- 
put value as initial flow rate 





b) If EX is>0, program will 
not optimize and will use 
input value for flow rate 


6 

CPC 

CPCOOL 

Coolant Loop Specific Heat 

BTU/lb/R 

7 

CPR 

CPRAD 

Radiator Loop Specific Heat 

BTU/lb/°R 

8 

RHOC 

RHOC 

Coolant Loop Density 

lb/ft? 

9 

RHOR 

RHOR 

Radiator Loop Density 

lb/ft 3 

10 

WC02: 

WC02 

CO Generation Rate 

lb/day 

11 

DAYN 

DAYS 

Normal Mission Length 

days 



4 

t-io . 







Hamilton U sp 01T72 

^ OlVtSOM Of UNITEO AIRCRAFT CORPORATION 

Standard P® 


LOCATION 



DESCRIPTION 

UNITS 

12 

QSM . 

QSMET 

Sensible Metabolic Heat Load 

BTU/hr 

13 

QSE 

QSENE 

Cabin. Air Heat Load 
(Q wall + Q elect) 

BTU/hr 

14 

QLM 

QLMET 1 

Latent Metabolic Heat Load 

BTUAr 

15 

QCP1 

i 

QCP1 

i 

Coolant Loop Cold Plate Heat 
Load 

BTU/hr 

16 

QCP2 

I 

QCP2 . | 

] 

i 

Radiator Loop Cold Plate Heat 
Load 

BTU/hr 

17 

QFC 

‘ i 

QFCELL 

Fuel Cell Heat Load (Less Heat 
Load Due to EC/LSS Power) 

BTU/hr 

18 

QSUBI 

QSUBL 

Heat Load Rejected by Flash 
Evaporator Sublimator Using 
Excess Fuel Cell Water 

BTUAr 

19 

Ml 

Key 0O 2 

C0 2 Removal Key 

a) • l.= LIOH 

b) 2 = Solid Amine (HS-C) 


20 

■' 

M2 

Key H 2 0 

Humidity Control Key 

b) 1 = Solid Amine 

c) 2 = Condenser 


21 

DTX 

DTIHX 

Initial Temp. Difference 
Between Coolant and Radia- 
tor Loops 

°F 

22 


TOLP 

Not Used 


23 

TV QL 

TVENT 

1 - 

Minimum Cabin Ventilation Flow 
. Req. 

EHH 

24 

DAYE 

DAYEM 

iEmergency Contingency Period 

! 

days 


4-11. 


i I ton D)v1SJON OP UNITED AIRCRAFT CORPORATION SP 0-1T72 

Standard fl® 


location 

PROGRAM 

SYMBOL 

PRINTED 

LABEL 

DESCRIPTION 

JNITS 

25 

RMAX 

NO TRAD 

Max. Times Thru Radiator 
Outlet Temp Loop 


26 

i 

HXIM 

NO TIHO 

Max. Times Thru Interface 
HX Outlet Temp Loop 


27 


BLANK 

Not Used 


28 


NO QLAT 

Not Used 


i 

29 : 

RHMAX 

RHMAX 

Max. Allowable Cabin Relative 

Decimal 

i 

i 



Humidity 

fraction 

! 

30 ! 

! 

WRAT 

WC/WR 

Coolant/Radiator Loop Mass Flow 
(WCp Coolant/WCp Radiator) 


31 

i 

FW1 

DT RADO 

Increments of Radiator Outlet 
Temp (TRO Increased by this 
?alue each iteration) 

°F 

32 ' 

FW2 

FFFC 

Waste Heat Factor For Fuel 


j 

} 

. 


Cell (Q waste heat/output power) 

BTU/hr/watt 

33 , 

| 

PPF 

PPFIX 

Fixed Power Penalty 

Lb/watt 

34 

PPV 

PPVAR 

Expendable Power Penalty 

Lb/watt hr 

35 

FW5 

1 

KEY HXS 

Heat Exchanger Arrangement 
Key 

a) 0 = no sensible HX 

b) 1 = separate sensible HX 


36 

EX 

KEY OPT 

Optimization Key 

a) 0- = optimize coolant flow rate 

and radiator outlet temp. 

b) 1 = no optimization - use input 
coolant flow rate and radiator 
outlet temp. 


37 

EY 

NO WC 

Max Times Thru Coolant Flow 
Rate Loop 
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P 


® 


SP 01T72 


T, Of A TTON 



DESCRIPTION I 

mm 

I 

j 

.38 

i 

| 

DWC 

FACT WC 

Factor Flaw Rate is Increased 
by Every Iteration (new flow rate/ 
old flow rate) 


39 

Not Used 




i 

i 

40 

Not Used 




41 

DPI 

DP H 2 0 

AP Of Humidity Control Equip 

In. H 2 0 

42 

■; DP2 

DP SHX 

AP Of Sensible HX 

In. H 2 0 

43 

DP4 

DP CP 

AP Of Coolant Loop Pump 

psi 

44 

DP6 

DP RP 

AP Of Radiator Loop Pump 

psi 

45 

DP9 

dp eo 2 

AP Of C02 Removal Equip. 

In. H 2 0 

46 

DP10 

DP VENT 

AP Of Ventilation System 

• ' ■ 

In. H 2 0 

47 

TS 

TSINK 

Radiator Sink Temp. 

°R 

48 

CPA 

CPA 

Cabin Atmosphere Specific Heat 

ft/°R 

49 

AMAX 

AMAX 

Maximum Allowable Radiator Area 

ft 2 

50 

FEXP 

FEXP 

Heat Rejection Expendable Weight 
Penalty Used to Top Radiator if 
Area Exceeds Max. Allowable 

lb/BTU/ 

51 

Not Used 




52 

Not Used 




53 

QE1 

QE1 

Air Cooled Electronic Bay in Cool 
ant Loop Heat Load (less fan)total 

- BTU/hr 

54 

QE2 

QE2 

Air Cooled Electronic Bay in 
Radiator Loop Heat Load (less 
fan) 

BTU/hr 
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U 
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SP 01T72 


LOCATION 

PROGRAM 

SYMBOL 

PRINTED 

LABEL 

DESCRIPTION 

UNITS 

55 

TE1 

TE1 

Air Cooled Electronic Bay In 
Coolant Loop Max. Air Temp. 

°F 

56 

TE2 

TE2 

Air Cooled Electronic Bay In 
Radiator Loop Max. Air Temp. 

°F 

57 

DPE1 

DPE1 

AP Of Fan In Coolant Loop 
Elect. Bay 

in. HgO 

58 

DPE2 

DPE2 

AP Of Fan In Radiator Loop 
Elect. Ray 

in. HgO 

59 

FRAD 

FRAD 

0. - Calculates RAD Area 

1. - Uses RAD Area in 49. 


60 

FC02 

FC02 

LiOH Heat Load Factor 




' 

Acutal Production Rates 
Ave. Production Rate 

• 

61 

FNC02 

1 

j FN C02 

No. of LiOH Cans on Line 


62 

TCMAX 

TCMAX 

Max. Allowable Coolant Temp. 
Out Of Cold Plates 

°F 

63 

CHSB 

C02L 

HSC CO 2 Loading 

lbs/lb 

64 

Not Used 




65 

CYCL 

CYCL 

HSC 1/2 Cycl Time 

minutes 

66 

QEB2 

QEB2 

Heat load of Second EBAY 
in series - Cabin Loop 

BTU/Hr 

67 

QCHIL 

QCHIL 

Low Temp. Chiller Heat Load 

BTU/Hr 

68 

TOLQ 

TOLQ 

Tolerance on Sensible Heat Load 
Converg 

decimal 

fraction 

69 

iVFC 

WFC 

Fuel Cell Coolant Mass Flow 
Rate 

BTU/Hr- 0 : 
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LOCATION ! 

PROGRAM 

SYMBOL 

PRINTED 

LABEL 

DESCRIPTION 

UNITS 

70 

RN 

NR 

Heat Rejection Sink 

1 - RAD + SUB 

2 - RAD + CRY 

3 - RAD + FLASH EVAP 

4 - SUB 

5 - CRYO 

6 - FLASH EVAP 


71 

WC 

WC 

Calculated Optimum Flow 
Rate (Used for off design 
Performance) 


72 

TZ 

TIFXI 

Freon Loop Control Temp (into 
int HX) 

°F 

73 

TCRY 

TCRY 

Time Cry. HX is Used @ Full Heat 
Load 

hrs. 

74 

TSUB 

' 

TSUB 

Time Sublimator or Flash 
Evaporator is Used that H 2 O Must 
be Supplied 

hrs. 

75 

TFCI 

TFCI 

Temp, of Fluid Entering F/C 

°F 

76 

TFCO 

TFCO 

Temp, of Fluid Leaving F/C 

°F 

77 

FRESH 

NFREH 

No. of Fresh LiOH Cart. On Line 


78 

EMIS 

EMIS 

Radiator Emissivity 


79 

STEP 

STEP 

No. of Steps Taken to Determine 
Radiator Topping Requirements 


80 

TAU 

TIME 

Time Required for 1 Orbit 

hrs. 

100 

PERF 

PERF 

1 - Sizing Program 

2 - Performance Program 

3 - Radiator/Evaporator Sizing 


101 

FWT (1) 

COND 

Component Weight Factors 
Condenser - Weight/UA 

lb/btu/h 
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LOCATION 

PROGRAM 

SYMBOL 

PRINTED 

LABEL 

DESCRIPTION 

UNITS 

102 

FWT (2) 

SENHX 

Sensible Heat Exchanger - 
Weight/UA 

lb/btu/hr/°F 

103 

( 3 ) 

W/S 

Water Separator 


104 

( 4 ) 

PUMPC 

Coolant Pump - No, of Pumps 


105 

( 5 ) 

HXINT 

Interface HX - Weight/UA 

lb/btu/hr/°F 

106 

(6) 

PUMPR 

Radiator Pump - No. of Pumps 


107 

(7) 

RAD 

Radiator - Area/WCp (B-C) 

ft 2 /btu/hr/°F 

108 

(8) 

SUB 

Sublimator - Weight/UA 

lb/btu/hr/°F 

109 

( 9 ) 

LiOH 

LiOH - Packaging Factor For 
Canisters 


110 

(10) 

VENT 

Ventilation Fans - No. of Fans 


111 

(11) 

FANC 

Condenser Fan - Number 


112 

(12) 

FANS 

Sens; HX Fan - Number 


113 

(13) 

MC 

Molecular Sieve - Not Used 


114 

(14) 

HSC 

Number of Canisters 

lb 

115 - 

(15) 

CONTM 

Charcoal Canister - pkg Factor 
for Canister 


116 

(16) 

EBHXI 

Coolant Loop Elect Bay HX 
Weight/UA 

lb/btu/hr/°F 

117 

(17) 

EBFANI 

Coolant Loop Elect Bay Fan - 
Number of Fans 


118 

(18) 

EBHX2 

Radiator Loop Elect Bay HX - 
weight/UA 

lb/btu/hr/°F 

119 

(19) 

EBFAN2 

Radiator Loop Elect. Bay Fan 
Number of Fans 
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Hamilton ov _ o ^ TED y B tTCo „_ TOM sp oit?2 

Standard P® 


' 1 

LOCATION i 

PROGRAM 

SYMBOL 

PRINTED 

LABEL 

DESCRIPTION 

UNITS 

120 

FWT (20) 

FCHX 

Fuel Cell HX 

lbs/btu/hr/°F 

121 

(2.1) 

GSEHX 

GSE HX - Not Used 

lbs/btu/hr/°F 

122 

(22) 

CRYHX 

Cryogenic Hg HX 

lbs/btu/hr/°F 

123 

(23) 

CHILL 

Low Temp Chiller - Not Used 


124 

(24) 

SUBLT 

Topping Sublimator 

lbs/btu/hr/°R 

125 

(25) 

FLASH 

Flash Evap 

lbs/btu/hr/°R 

131 

FXW (1) 

COND 

Subsystem Fixed Weight 
Condenser 

lb 

132 

(2) 

SENHX 

Sen sible H eat E xchanger * 

lb 

. 

133 

( 3 ) 

W/S 

Water Sep * 


134 

( 4 ) 

PUMPC 

Coolant Lo.op * 

lb 

135 

( 5 ) 

HXINT 

Interface HX 

lb 

136 

(6) 

PUMPR 

Radiator Loop Pump * 

lb 

137 

( 7 ) 

RAD 

Radiator - Weight of Hinge For 
Fold Out 

lb 

138 

(8) 

SUB 

Sublimator 

lb 

139 

( 9 ) 

LiOH 

LiOH * 

lb 

140 

(10) 

' VENT 

Ventilation Fans - Not Used 


141 

(11) 

FANC 

Condenser Fan 

lb 

142 

(12) 

FANS 

Sensible Fan 

lb 

143 

( 13 ) 

C 

Not Used 

lb 

144 

(14) 

HSC 

HSC Fixed Wt. 

lb 
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Hamilton 

Standard 


U 

DivtSKSN OF UNITED AIRCRAFT CORPORATION 

fl® 


SP 01T72 


LOCATION 

PROGRAM 

SYMBOL 

PRINTED 

LABEL 

'.DESCRIPTION 


145 

FXW (15) 

CONTM 

Charcoal Canister 

lb 

146 

(16) 

EBHX1 

Coolant Loop Elect. Bay HX* 

lb 

147 

(17) 

EBFAN 

Coolant Loop Elect. Bay Fan* 

lb 

148 

(18) 

EXHX2 

Radiator Loop Elect. Bay HX* 

lb 

149 

(19) 

EBFAN2 

Radiator Loop Elect. Bay Fan* 

lb 

150 

(20) 

FCHX 

Fuel Cell HX 

lb 

151 

(21) 

GSEHX 

GSE HX 

lb 

152 

(22) 

CRYHX 

Cryogenic HX 

lb 

153 

(23) 

CHILL 

Not Used 


154 

(24) 

SUBLT 

Not Used 


155 

(25) 

FLASH 

Flash Evaporator 


161 

SWT (1) 

COND 

Structural Weight Factors 
Condenser Fans 


162 

(2) 

SEN HX 

Sensible HX & Process Flow 
Fans 


163. 

(3) 

WS 

Water Sep * 


164 

(4) 

PUMPC 

Coolant Loop Pump 


165 

(5) 

HXINT 

Interface HX 


166 

(6) 

PUMPR' 

Radiator Loop Pump 

lb/ft 2 

167 

.. (?) 

RAD 

Radiator 


168 

(8) 

SUB 

Sublimator 




‘ Program Fact 
FXW (n) * SW r 

ors Fixed wt by Structure wt Fa 
r (n) 

ctor 
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Hamilton o _ TED y„. FT sp 01T72 

Standard A® 


LOCATION 

PROGRAM 

SYMBOL 

PRINTED 

LABEL 

DESCRIPTION 

UNIT 

169 

( 9 ) 

LIOH 

LiOH 


170 

(10) 

VENT 

Ven tilation Fans 


171 

(11) 

FANC 

Cpndenser Fan 


172 

(12) 

HSB 

Sensible Fan 


173 

(13) 

MS 

Not Used 


174 

(14) 

H2DP 

HSC 


175 

(15) 

CONTM 

Charcoal Canister 


176 

(16) 

EBHX1 

Coolant Loop Elect. Bay HX 


177 

(17) 

EBFAN1 

Coolant Loop Elect. Bay Fan 


178 

(18) 

EBHX2 

Radiator Loop Elect. Bay HX 


179 

(19) 

EBFAN2 

Radiator Loop Elect. Bay Fan 


180 

(20) 

FCHX 

Fuel Cell HX’s 


181 

(21) 

GSEHX 

Not Used 


182 

(22) 

CRYHX 

Cryogenic HX 


183 

(23) 

CHILL 

Not Used 


184 

(24) 

SUBLET 

Not Used 


185 

(25) 

FLASH 

Flash Evaporator 


191-220 

PW (30) 

PW (30) 

Power Table For All Components 


221-250 

CFT (30) 

CFT (30) 

Component Factors (UA, 1 ) , Etc.) 


426-500 

T (75) 

Not Printed 

Table of HSC Performance (Water 
Loading VS Partial Press and Air 
Flow/lb Bed) 
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Hamilton 

Standard 


U 

AIRCF 

fl® 


DIVISION OF UNITED AIBCSAFT CORPORATION 


SP 01T72 


] 

LOCATION £ 

PROGRAM 1 PRINTED 
SYMBOL LABEL 

DESCRIPTION 

UNITS 

351- 425 

Not Printed 

C0 2 Bed Loading Vs Air Flow 




LB Bed & PC0 2 


221 i 

C.FT (l) 

Condenser UA 

BTU/Hr- ! 

222 

(2) 

Sens HX UA 

BTU/Hr-' 

223 

(3) . 

- ■ 


224 

CFT (4) 

Coolant Pump EFF 

' 

225 

(5) 

Inter HX UA 

BTU/Hr-' 

226 

(6) 

Radiator Loop Pump EFF 


227 

(?) 

RAD Area 

Ft 2 

228 

(8) 

Sublimator UA 

BTU/Hr- 

229 

(9) 

LiOH Removal EFF of C0 2 

1 

j 

230 

(10) 

Vent Fan EFF 


231 

(11) 

Condenser Fan EFF 

1 

232 

(12) 

Sensible Fan EFF 


233 

(! 3 ) 

- 

| 

234 

( 14 ) 

HSC Bed Size 

! Lbs 

235 

(15) 


1 

{ 

1 : 

236 

(16) 

EBHX UA 

I BTU/Hr- 

237 

(17) 

EBFAN EFF 

: 

238 

(18) 

EBHX2 UA 

: BTU/Hr- 

239 

(19) 

EBFAN 2FF 


240 

(20> l 

1 Fuel Cell HX UA 

BTU/Hr- 
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Hamilton 

Standard 


U 

DIVISION OP UNITED AIRCRAFT CORPORATION 

fl® 


SP 01T72 


LOCATION ! 

PROGRAM 

SYMBOL 

PRINTED 

LABEL 

DESCRIPTION 

UNITS 

241 

(21) 


- 


242 

(22) 


CRY. HX UA 

BTU/Hr- 

243 

(23) 




244 

(24) 


Topping Sub UA 

BTU/Hr-' 

245 

(25) 


Flash Evap UA 

BTU/Hr- 1 

251 

Vll 


Condenser Fan Air Low Rate 

CFH 

252 

V12 


Sensible Fan Air Flow Rate 

CFH 

253 

V9 


LiOH Air Flow Rate 

CFH 

254 

V10 


Ventilation Fan Air Flow Rate 

CFH 

255 

V17 


Cabin Loop Cooled Avion. Bay 
Fan Flow 

CFH 

256 

V19 


Radiator Loop Cooled Avion. Bay 
Fan Flow 

CFH 

301-350 



Radiator Influx vs Orbit Position 


501-517 



Qmetabolic Table 
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Hamilton U 

DIVISION OP UNITED, AIRCRAFT CORPORATION 

Standard A® 


PROGRAM OUTPUT 


4.2.2 Program Output 

The program output can be separated by the type of case that is run: 


SP 01T72 


a„ Sizing 

b. Off-Design Performance 

c. Orbital Radiator/Evaporator Transient 

For all cases, the input data in locations 1 - 100 (that are used) are printed. The 
labels are described in the table that describes the input data. 


For the sizing program, the Weight factors (FWT, FXW, & SWT) are printed under 
the component name and in component order: from 1 to 15 and from 16 to 27. Tables 

of optimization results are printed in the following order: 

1. Optimization of the interface heat exchanger outlet coolant 
temperature for each radiator outlet temperature. 

2. A summary table of the optimum total equivalent weight for each 
radiator outlet temperature at a given flow rate. 

3. A summary table of the optimum total equivalent weight for each 
flow rate. 

lastly, the results of the optimum condition are printed so that a flow chart can be 
produced. 


f 

v-, 
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Hamilton _ oFu _ D y aAFTcOT _ ATON sp 01T72 

Standard p® 

4. 2 . 2 (Continued) 

The labels that are printed with the output data are described in the following tables: 

Table 4-1 Sizing Program 

Table 4-2 Off-Design Performance Program 

Tabid 4-3 Orbital Transient Program 

As with the input, all labels and symbols are explained in Appendix 1. 

Typical computer output printouts are shown in Figure 4-7, 4-8, and 4-9. These 
outputs are for the respective inputs which are shown in Figures 4-4, 4-5, and 4-6. 
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Hamilton 

Standard 


DIVISION OF UNlTtO 


AT ION 


! SP OITTS 



OUTPiit DATA 

- •' 

— 

", 





TOTEQWT 
58 27. 0 

TINHXC 

36.0 

TOTPW, 

790.4 

FfffwT; 

_ -54?8^5- 

1971.8 WC 

34.00 

TRO 


5744. 1 
5-7.2 3 >_8 

37.0 

3£aP 

808.0 

827.5 

5388. 0 
5359.0 





57 40. 4 
5805.1 

39.0 

40.0 

849.3 
_ 849^ 

5366.0 

5630.7 





6182.5 

41.0 

827.5 

5817.7 





TOTEQWT 

5677,2 

TINHXC 

36.0 

TOTPW > 
790 .4 

TOTWT 

5328.8 

1871.8 WC 

36.00 

TRO 


55 54. 4 
5574. 1 

3 7.0 
38.0 

808.0 

827.5 

5238.2 

5209.3 

’ 




5590.6 
56 55. 4 

39.0 
40; 0 

849 .3 
949.3 

5216.2 

5281.0 





60 32 . 7 

41.0 

. 027.5 

5668.0 





TOTEQWT 
5527. 5 

TINHXC 
3 6.0 

TOTPW 

790.4 

TOTWT 

5179.0 

1871.8 WC 

38.00 

TRO 


5444.7 
5424. 3 

3 7.0 
38.0 

808 .0 
827.5 

5088.5 

5059.5 





5440. 9 
5505.6 

39.0 
40 .0 

849. 3 
849.3 

5066.5 

5131.2 





58 83. 0 

41 .0 

827.5 

5518.2 




, 

TOTEQWT 
53 77.7 

TINHXC 
( 36.0 

V 37.0 
.38.0 

TOTPW 
, 790.4 

TOTWT 

5029.3 

18 71.8 WC 

40.00 

TRO 


' 5294.9 

5274.6 

808. 0 
827.5 

4938.7 
4909. 8 


— y. 


. 

5291. 1 

39.9 

849.3 

4916.8 


““ r» 



53 55.9 
5733.3 

40.0 
41 .0 

849.3 

827.5 

4981.5 

5368.5 





TOTEQWT 

TINHXC 

TOTPW 

TOTWT 

1871.8 WC 

42.00 

TRO 


5228.0 
.. 5145,2 __ 

36.0 

iz.p 

790.4 
80.8 .0 

487 9.6 
4789.0 





51 24. 8 
, 5141.4 
5 2 06.1 
5583, 5 

38. 0 

39.0_ 

827.5 
849.3 

4760.1 
AT 67,0 





40 .0 
41.0 

84Q.? 
827. 5 

4831.8 
• 5218.7 





TOTEQWT 

tinhxo 

TOTPW 

—TOTWT _ 

1871.8 WC 

44.00 

TRO 


51 14. 2 
50 40.5 

37.0 
3 8.0 

808.5 

828.0 

6757.8 

4675,5 





5037. 1 
50^2.7 

39.0 
40.. 0 

849.9 

049.9 

4662.5 

4718.0 





5491,5 

41.0 

828,0 

5126.5 





OPTIMUM CONDITION 
T0TFQWT TP0 

5723.8 34.0 ' 

5574.1 36.9 

1871.8 WC 
T ! NH X C 
BS'.O 
38 .0 

T-CTPW 

827.5 

827.5 

TOTWT 
5355. C 
5209. 3 

— 

■ - 


5424.3 

.5 2.14^6 

38. 0 
40.0 

3 8.0 
38.0 

827.5 

827.5 

5059.5 
4905. 0 




51 24. 8 
50 37, 1 

42.0 
___44. 0 

33.0 

39.0 

827.5 
84 9, 9 

4769.1 
4662. 5 




TOTEQWT 

TINHXC' 

TOTPW 

TOTWT 

1946.6 WC 

34.00 

TRO 


58 83. 4 
57 96'. 2 

36. C 
37.0 

790,8 

806.7 

5534.8 
5440. 6 




5768.9 
5771. 9 

38 .0 
3°. 0 

824.3 

843.8 

5405.6 

5399.9 





5802, 1 
5886.7 

4f .0 
41 .0 

865.6 

899.2 

5420'. 6 
5494.3 





6426. 0 

42.0 

84 3.8 

6054.0 





TOT FQWT 
5727.6 

TINHXC 

36.0 

TOTPW 
790 .8 

TOTWT 

5379.0 

1946.6 WC 

36,00 

TRO* 


5640. 5 
_56 13.2 

37.0 

38.0 

006. 7 
824.3 

5284.9 

5249.8 





56 16. 1 
5646. 4 

39. 0 

40. 0 

043 .8 
865. 6 

5244.2 

5264.9 





5731.0 
6? 70. Z 

41 .0 

_4 2. Q__ 

090.2 

843.8 

5338.6 

5898,3 





TOTFQWT 

TINHXC 

TOTPW 

TOTWT 

1946.6 WC _ . 

.3.8, 00_ 

TRO 


5671 .9 
54 84. 8 

36.0 
37. 0 

790 .8 
306.7 

5223.3 

5129.2 


5457.4 
5 4 60._4 
54CQ. 7 
5575.3 

38.0 
1? .0 
40.9 

41.0 

824.3 

.843,8 

865.6 

899.2 

5094. 1 
5038.4 

5109.1 
5182,9 







61 14.5 

42 .0 

84 3 .8 

5742.6 





\ 



FIGURE 4-7. SIZING CASE OUTPUT (SHEET I OF 3) 
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Hamilton U 

' OIVlWON Of UNITED A1WCRAI 

Standard H® 


SP 01T72 


TOTFQWT 

TINHXr 

TOTPW 

TOTWT 

1946.6 WC 

40 .00 

TRO 

5 4 16.2 

36.0 

790.8 

5067.6 




5329.0 

37. 0 

80 6.7 

4973.4 




S-<01, 7 

38. 0 

824.3 

. 4938,4 _ 




5304.7 

39.0 

843.8 

4932.7 




5335.0 

40.0 

86.5 .6 

4953*4 

jt.. _ . . 



5419.5 

41.0 

890.2 

. 5027.1 



5958.8 

42 .C 

843 .8 

5586.8 




TOTFQWT 

TINHXr 

TOTPW 

TOTWT 

1946.6 WC 

42.00 

TRO 

5260.4 

36.0 

790 .8 

4911. 8 




5173. 3 

37.0 

806 .7 

4017.7 




5146.0 

38. 0 

824. 3 

4782.6 




5148.9 

39.0 

843 .8 

4777.0 




51 79. 2 

4 0,0 

865.6 

4797,7 




5263. 8 

41.0 

890.2 

4871,4 




5803. C 

42.0 

843 .8 

5431.1 




TOTFQWT 

TINHXP 

TOTPW 

TOTWT 

1946.6 WC 

44 .00 

TRO 

5186.1 

37.4 

813.0 

4827. 7 




5106. 7 

38.4 

831 .3 

4740.3 




50 52. 6 

39. 4 

351.6 

4717.2 




5123.1 

40 .4 

874.3 

4737.7 




52 51. 1 

41.4 

874 .3 

4865.7 




TOTFQWT 

TINHXC 

TOTPW 

TOTWT 

1946.6 WC 

46.00 

tro 

51 16.6 

39.4 

85 1 .6 

4741.2 




50 70. 8 

40. 4 

874.3 

4685. 4 




51 65. 7 

4! .4 

874.3 

4780.3 




TOTFQWT 

TINHXP 

TOTPW 

TOTWT 1946.6 WC_ 

4 8.00 

TRQ 

5265. ? 

41,4 

874.3 

4879.8 




OPTIMUM CONDITION 

1946.6 WC 





TOTFQWT 

TRP 

T I NHX 0 

TOTPW 

TflTWT 



5768. 9 

34. 0 

3 8. C 

024.3 

5405.6 



5613.2 

36.0 

38.0 

824.3 

5245. 8 



5457.4 

3 8.0 

38.0 

824.3 

5094.1 



5301. 7 

40.0 

38.0 

824.3 

4938.4 



51 46.0 

42 .0 

38 .0 

824.3 

4782. 6 



50 92. 6 

44 . 0 

39.4 

851.6 

4717.2 



50 70.8 

46.0 

40.4 

874.3 

46e5. 4 



5265.2 

48 .0 

41 .4 

874,3 

A 87 9. 8 



OPTIMUM CONDITIONS ' 

SUMMARY 





TOTFQWT 

wc 

TRO 

TINH XO 

TOTPW 

TOTWT 


999999.0 

160 r .o 

3 4.0 

36.0 

0.0 

• 0,0 


qa99<;p, n 

1664. 0 

34. 0 

36.0 

0.0 

C.O 


9 99Q97.0 

1730.6 

34.0 

36.0 

c. c 

. 0 . 9 


0900 96. Q 

1790. R 

34.0 

36.0 

0.0 

r .o 


5" 37. 1 

1871. 8 

44.0 

3 9.0 

849. 9 

4662.5 


5070.8 

1946.6 

46 .0 

4C.4 

874. 3 

4685. 4 


CONOR N SF.R WRIGHTS 183.27 WThX 

12.28 

mvalve 




C0NCRNSR3 FAN 5.58 FANWT i. 56 WTVK 

P AOT AT OR SUBPOUT It R „ 

610.51 TIN 503.60 TOUT 5i7, 60 TOUTC 895,14 APACC 900.00 APHAX 2207.44 WTRFO 


FIGURE 4-7. SIZING CASE OUTPUT (SHEET 2 OF 3) 
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Hamilton 

Standard 



DIVISION OF UNITED AIRCRAFT CORPORATION 

A® 


i SP 01T72 



SYSTEM ITTPATJON VFIG>*TS_ 

'5.C TIHXI 39,0? TtHXD 

r ,16 53 POPO ] fli71.B WC0_0L 
. ' .r IH.10ES * .r “i)LUC02 

f,s, r Tape 2 

HXSFNS W/S PUMPC HX1NTF t>UMPR «AOyT_ .StIBLJ M CQ2R EM VENT CONTC FAN C_ FAN A FAN MS 

.221.40 r,0 *>7 69.95 165.63 78.55 22C7.44 165.07 333.67 0.0 16.60 " 52.55 * 6. C 0.6 

F8HX! FBFAM! Ft HY? EBFAN2 FCHX CP.YHX WTH2t WTHYO FEVAP ~GSE 

r .r, 0. r . n .0 88.77 37. 72 O.r 1 50.6 3 0.0 10. 85_ _ 

CHYp^NFNT POWERS < WATTS) _ __ 

H?nq F M srNSF PU^PC riJMPP C02RFM VENTF~ ebay! ** EBAY2 ~ . 

4 4 7. 1 1 r.C PI. 29 3 2 F . 5 i 0.C 0.0 _ C.C 0.0 

CPMPJNENT FLOW P A 7 F S 

F1Q.Q M20PFM 66 • ^ C02RFM O.C SFNHX "" 0.0 VENT 0.0 CONTM " 585.9 FAN C‘ 0.0 FAN A 

A .C F 8 A Y 1 P.f. FBAY? __ . * ... _ 1 

CABIN I OOP TFvPFrAHlP.ES • _ 

39. r ° 65.3Q 65. ^>9 65,39 65.39 65.39 102. 79 103.38 

P AOf A TCP LOOP TFwpFPA Tl'RES 

35. ‘”2 «9.3P c p.3B 99.38 148,53 15C.91 58_. OC . .35.02. 

MEM LOADS 

r-"*r)HX SrNSHX IMEPHX FUELCELL RACIATCR FXP HX TOTLAT S TNSC02 LATCH 2 SENSH2DP L ATH2DP QSINK 
1^37.4 f.-> 39115.1 23000.0 43475.0 6551. 2 1506.9 _ 5_49.8 274.9 0.0 C .0 

54^76. 2 

F 0 AY 1 FBAY? SIJBL I M ~ ’ “* 

p.r r.: 4200.0 


50 37.13 TECWT 4662.48 TOTWT 849.91 TOTPW ‘ 65.0C TAOS 40.02 TAQC" 

159. 896 WBC02 0. 0 _ WBOFS 0.0 ULLP FN 895._1 ARAD JC48.19 WTFXP 

50*.' 3 'DEW PT 65To TA0F11 65. C TACETi 65^0 TEB1 * *6*5^0 TEB2 


FIGURE 4—7. SIZING CASE OUTPUT ( SHEET 3 OF 3) 
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l_ I 0 H SLOP OUT l.NE-CT? " AR T I AL_ “P ESSURES 

3.557 PMAX 2.24? PMIN 549.9 OS 

P APT A TOP SUBRC1UT 1 NE 

61 : 5;?P T IN APR. 97 TOUT 5 IP. 97 TflUfr. 


CPYCGFNIC HX PERFORMANCE 

39. 36 THOTCAL 6.87 W HYO 60.34 THVDC 

2795.12 2300 4 50P.A' 7 7.41 51.37 7 f.00 

C r !NO r NSFP PERFORMANCE 

7 0, 0 0 TC A R 72. M TA! R I 51.37 TAIRC. 478.2 HXCFM 53.58 TDPCAR 10718.7 0 SEN S . .2070. C Q SMF T 1 504.9 QLTOT 

'"~69l9P’ TFAN1 7 2,4 1 TFAMF) 


FUEL TELL HX 

230Q7.C 3 FC 657.1 WFC 115.0 0 TF/CI 1.50,00 TF/CC 


274.9 PL ' 

ll87 • 66~“AR AOC~ 903.00 ARMAX 2T9C'. _ 59 _ HTREQ 


CABI N LOO P TEMPS „ 

“43. 37 43.37 68.40 69.49 68.49 104.45 105.04 


paoi’atcp loop tfmps 

1 59.69 150,60 60.37 60 .37 .39. 37 -39._37_ 101,05 101.05 101.05. 149.31 

H F AT LOAOS' 

12223.6 OCONO r .9 OPENS _ ,2.88. 6 OC c UMP . 3001 fi. 5 0! NTX . 1155.7 ORPURP 43954.3 O RAD 

O.O OEVAP '10219. R OPY 1504.9 OL AT 



o 


! 

s 



» 

i 


FIGURE 4-8, 
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TABLE 4-1. OUTPUT DATA DESCRIPTION - SIZING 


Label 

‘ / 
Description 

Unit 

TOTEQWT 

Total equivalent weight 

lbs 

TINHXO 

Water temperature leaving the interface heat 
exchanger 

°F 

TOTPW 

Total ECS power (thermal control) 

watts 

TOTWT 

Total ECS weight (thermal control) 

lbs 

WC 

Radiator loop flow rate 

lbs/hr 

TRO 

Radiator outlet temperature 

°F 

WTHX 

Heat Exchanger weight 

lbs 

mvalveX 

Temperature Control Valve weight 

lbs 

WVALVE / 



WTFAN \ 

Fan Weight (one) 

lbs 

FANWT / 



WTVK \ 

Check valve weight 

lbs 

WTCK / 



QREJ 

Total heat removed 

BTU/hr 

TCIN 

Coolant loop inlet temperature 

°F 

' TCOUT 

Coolant loop outlet temperature 

°F 

WH20 

Water usage rate , 

lb s/hr 

WEIGHT 

Flash evaporator subsystem weight 

lbs 

TIN 

Radiator inlet temperature 

°R 

TOUT 

Desired radiator outlet temperature 

°R 
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TABLE 4- 

1. OUTPUT DATA DESCRIPTION - SIZING (CONTINUED) 

Label 

Description 

Unit 

TOUTC 

Calculated outlet temperature 

°R 

ARADC 

Calculated radiator area 

ft 2 

ARMAX 

Maximum allowable radiator area 

ft 2 

WTREQ 

Radiator weight . 

lbs 

TIHXI 

Radiator loop coolant temperature entering 
interface HX 

°F 

TIHXO 

Cabin loop coolant temperature leaving 
interface HX 

°F 

TEQWT 

SYSTEM total equivalent weight 

lbs 

TOTWT 

System total weight 

lbs 

TOTPW : 

System total power 

watts 

TAOS 

Sensible heat exchanger gas outlet 
temperature 

°F 

TAOC 

Condenser gas outlet temperature 

°F 

PDPO 

Water vapor pressure leaving the condenser 

psia 

WCOOL 

Optimum coolant flow rate (radiator loop) 

lbs/hr 

WBC02 

\ 

Bed weight of the CO2 removal system total LiOH wt. 

lbs 

WBDES 

Weight of one HSC Bed : 

lbs 

ULLPEN : 

Ullage penalty for the HSC subsystem 

lbs 

ARAD 

Calculated radiator area 

ft 2 

WTEXP 

Weight of expendables required to supplement 
radiator (does not include QSUBL) 

lbs 
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TABLE 4-1. OUTPUT DATA DESCRIPTION - SIZING (CONTINUED) 


label 

Description 

Unit 

ULLDES 

Ullage penalty for the HSC subroutine 

lbs 

ULLCO 2 

Not used' 


DEWPT 

Cabin dew point 

°F 

TAOE11 

Temperature of air leaving the HX of the first 
(or only) water cooled avionics bay in series 

°F 

TAOE12 

Temperature of air leaving the HX of the 
second water cooled avionics bay in series 

°F 

TEB1 

Temperature of the first (or only) water cooled 
avionic bag in series 

°F 

TEB2 

Temperature of the second water cooled avionics 
bay in series 

°F 

TAOE2 

Temperature of the gas leaving the heat 
exchanger of the radiator loop cooled avionics 
bay 

°F 

h 2 orem 

Water removal (HSC or Condenser) subsystem 
weight 

lbs 

HXSENS 

Sensible HX temperature control subsystem 
weight 

lbs 

w/s 

Water separator subsystem weight 

lbs 

PUMPC 

Cabin loop pump package weight 

lbs 

HXINTF 

Interface HX's weight 

lbs 

PUMPR 

Radiator loop purrtp package: weight 

lbs 

RADWT 

Radiator weight 

lbs 

SUBLIM 

Sublimator package weight 

lbs 
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TABLE 4-1. OUTPUT DESCRIPTION - SIZING (CONTINUED) 


Label 

COgREM 
VENT 
CONTC 
FAN C 

FAN A 
FAN MS 
EBHX1 
EBFAN1 

EBHX2 

EBFAN2 

FCHX 

CRYHX 

WTH20 

WTHYD 

FEVAP 

GSE 


Description Unit 

LiOH Subsystem weight lbs 

Ventilation fan package weight lbs 

Contaminant removal weight lbs 

Condenser fan package weight or HSC fan lbs 

weight increase, 

Sensible fan package weight . lbs 

Not used 

Water cooled avionics bay HX weight (total) lbs 

Water cooled avionics bay HX package weight lbs 

(total) 

Radiator loop avionics bay HX weight lbs 

Radiator loop avionics bay fan package weight lbs 

Fuel cell heat exchanger package weight lbs 

Cryogenic HX package weight lbs 

Weight of water required for period when lbs 

radiator is inoperative 

Weight of hydrogen required for period when lbs 

radiator is inoperative 

Flash evaporator package weight lbs 

Ground Support HX weight lbs 
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Label 

Description. 

Unit 

COMPONENT POWERS 


H20REM 

Condenser fan or HSC fan power 

watts 

SENSF 

Sensible HX fan power 

watts 

PUMPC 

Cabin loop pump power 

watts 

PUMPR 

Radiator loop pump power 

watts 

C02REM 

Not used 


VENTF 

Ventilation fan power 

watts 

EBAY1 

Avionics bay (water cooled) fan power (total) 

watts 

EBAY2 

Radiator loop avionics bay fan power 

watts 

COMPONENT FLOW RATES 


H20REM 

Condenser or HSC gas flow rate 

CFM 

CO 2 REM 

LiOH gas flow rate 

CFM 

SENHX 

Sensible heat exchanger gas flow rate 

CFM 

VENT 

Ventilation fen flow rate 

CFM 

CONTM 

Flow rate supplied by ECS fen through 
contaminate canister 

CFM 

' FAN C 

Condenser fan flow rate 

CFM 

FAN A 

Sensible fan flow, rate 

CFM 

EBAY1 

Water Cooled avionics bay fan flow rate 

CFM 

EBAY2 

Radiator loop avionics bay fan flow rate 

CFM 
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TABLE 4-1. OUTPUT DESCRIPTION - SIZING (CONTINUED) 


Label 

Description 

CABIN LOOP TEMPERATURES 


Printed in order are: 

1st 

Leaving the interface HX 

2nd 

Leaving the condensing HX 

3rd 

Leaving the sensible HX 

4th 

Same as 3rd 

5th 

Temperature entering the second avionics bay if two 
in series, otherwise same as 3rd 

6th 

Temperature entering cold plates 

7th 

Temperature leaving cold plates 

8th 

Temperature leaving pump 

RADIATOR LOOP TEMPERATURES 


Printed in order are: 

1st 

Temperature entering interface HX 

2nd 

Temperature leaving interface HX 

3rd 

Temperature leaving avionics bay 

4th 

Temperature leaving cold plates 

5th 

Temperature leaving F/C HX’s 

6th 

Radiator inlet temperature 

7th 

Radiator outlet temperature 
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TABLE 4-1. 

Label 

8th 

9th 

HEAT LOADS 
CONDHX 
SENSHX 
INTERHX 
FUELGELL 
RADIATOR 
EXP HX 

TOTLATQ 

SENSC02 

LATC02 

SENSH2DP 

LATH2DP 

QSINK 

EBAY1 

EBAY2 

SUBLIM 


OUTPUT DESCRIPTION - SIZING (CONTINUED) 
Description 

Temperature leaving that portion of the radiator 
topping HX that must pay for expendables 

Temperature leaving topping heat exchanger 

Total heat removed by condensing HX 

Heat removed by sensible HX 

Heat transferred by the interface HX 

Heat removed from fuel cells 

Heat rejected by radiator 

Portion of heat removed by topping HX for 
which expendables must be launched 

Total latent heat load removed by condenser 

Sensible heat generated by LiOH 

Latent heat generated by LiOH 

Not used 

Not used 

Total heat rejected by all heat sinks 
Heat removed in cabin loop avionic bay 
Heat removed in radiator loop avionic bay 
Heat removed with excess fuel cell H 2 O 


SP 01T72 
Unit 


BTU/hr 

BTU/hr 

BTU's/hr 

BTU's/hr 

BTU'sAr 

BTU'sAr 

BTU'sAr 

BTU's/hr 

BTU's/hr 

BTUAr 

BTUAr 

BTU/hr 

BTU/hr 
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TABLE 4-1. OUTPUT DESCRIPTION - SIZING (CONTINUED) 


Label Description Unit 


CONDENSER WEIGHTS 

WTHX Condensing Hx weight 

MVALVE Bypass air valve weight 

SENSIBLE HX 

WTHX Sensible Hx weight 

WVALVE Air bypass valve weight 

AVIONICS BAY 

WTHX Weight of one heat exchanger 

WTFAN Weight of one fan 

WTCK Check valve weight 

BED LOADING 


1ST 

2ND 

3RD 

4TH 


1ST 

2ND 

3RD 

4TH 


WTCAN 

WVVAL 

WCVAL 

WTFAN 

WKVAL 


Volumetric air flow per lb of HSC 

Water vapor pressure 

Bed water loading 

Off Tables Indicator if non-zero 

Next Line Printed in Order 

Weight of HSC canisters and valves 
Weight of fans and check valves 
Total Equivalent Weight (excluding ullage) 
Weight of HSC per canister 

Next- Line Printed in Order 

Canister weight 
Vacuum valve weight 
Humidity control valye weight 
Increase in fan weight 
Fan check valve weight 


Lbs 

Lbs 


Lbs 

Lbs 


Lbs 

Lbs 

Lbs 


cfm/lb HSC 
psia 

lb HgO/lb HSC 


Lbs 

Lbs 

Lbs 

Lbs 


Lbs 

Lbs 

Lbs 

Lbs 

Lbs 
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TABLE 4. 1. OUTPUT DESCRIPTION - SIZING (CONTINUED) 


Label 

Description 

Unit 

DOUBLE EBAY 



WTHX 

Heat exchanger weight (1) 

Lbs 

WTFAN 

Fan weight (1) 

Lbs 

WTKV 

Fan check valve weight (1) 

Lbs 

FLASH EVAPORATOR SIZE 


QREJ 

Heat rejected 

BUT/hr 

TCIN 

Coolant circuit inlet temperature 

°F 

TCOUT 

Coolant circuit outlet temperature 

°F 

WH20 

Water used 

Lbs 

WEIGHT 

F/E unit weight 

Lbs 

RADIATOR SUBROUTINE 


TIN 

Coolant inlet temperature 

°R 

TOUT 

Coolant outlet temperature 

°R 

TOUTC 

Calculated outlet temperature 

°R 

ARADG 

Radiator area required 

Ft" 

ARMAX 

Maximum available radiator area 

Ft 2 

WTREQ 

Radiator weight 

Lbs 
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TABLE 4-2. OUTPUT DATA DESCRIPTION OFF DESIGN PERFORMANCE CASES 


Label 

Description 

Unit 

COMPONENT POWERS-WATTS 


The data in locations 191 - 220 are printed in order 


COMPONENT FACTORS - UA, EFF. Etc. 

i 

The data in locations 221 to 250 are printed in order 


COMPONENT FLOW RATES -CFH 


CONDF 

Condenser or HSC flow rate 

ft 3 /hr 

SENF 

Sensible HX flow rate 

ft 3 /hr 

AVFANH 

Flow rate of cabin loop cooled avionics bay fan 

ft 3 /hr 

AVFANR 

Flow rate of radiator loop cooled avionics bay 
fan 

ft 3 /hr 

VENTF 

Ventilation fan flow rate 

ft 3 Ar 

LiOH 

LiOH flow rate 

ft 3 Ar 

LiOH SUBROUTINE - C02 PARTIAL PRESSURES 


PMAX 

Cabin CQ2 Pressure level at inputed removal 
efficiency 

mm Hg 

PMIN 

Cabin COg pressure level with fresh cartridge 

mmllg 

QS 

Sensible heat generated by LiOH 

BTU/hr 

QL 

Latent heat generated by LiOH 

BTU/hr 

RADIATOR SUBROUTINE 


TIN 

Radiator inlet temperature 

°R 

TOUT 

Radiator outlet temperature desired 

°R 
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TABLE 4-2. 

OTTTPTTT DATA DESCRIPTION OFF DESIGN PERFORMANCE CASES 


(CONTINUED) 


Label 

Description 

Unit 

TOUTC 

Calculated outlet temperature 

°R 

ARADC 

Calculated radiator area 

fl 2 

ARMAX 

Maximum allowable radiator area 

ft 2 

WTREQ 

Radiator weight 

lbs 

FLASH EVAPORATOR PERFORMANCE 


QREJ 

Heat rejected 

BTU/hr 

TCIN 

Coolant loop inlet temperature 

°F 

TCOUT 

. Coolant loop outlet temperature 

°F 

TOMAX 

Maximum coolant loop outlet temperature 

°F : 

TOMIN 

Minimum coolant loop outlet temperature 

°F 

WH20 

Water required to supplement radiator for 
TSUB hours 

lbs 

CRYOGENIC HX PERFORMANCE 


THOTCAL 

Calculated coolant outlet temperature 

°F 

WHYD 

Hydrogen flow rate 

lbs /hr 

THYDO 

Hydrogen outlet temperature 

° F 

' CONDENSER PERFORMANCE 


TCAB 

Cabin temperature 

°F 

TAIRI 

Heat exchanger air inlet temperature 

°F 

TAIRO 

Heat exchanger air outlet temperature 

°F 

HXCFM 

Gas flow rate through HX 

CFM 
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TABLE 4-2. OUTPUT DATA DESCRIPTION OFF DESIGN PERFORMANCE CASES 



(CONTINUED) 


Label 

Description 

Unit 

TDPCAB 

Cabin dew point 

°F 

QSENS 

Sensible heat transferred by condenser 

BTU/hr 

QSMET 

Crew sensible metabolic heat load 

BTuAr 

QLMET 

Crew latent metabolic heat load 

BTU/hr 

' 1 

SENS HX PERFORMANCE 


QSENS 

Heat transferred by HX 

BTU/hr 

VHX 

Flow rate through HX 

CFM 

TXAI 

Heat exchanger air inlet temperature 

°F 

TXAO 

Heat exchanger air outlet temperature 

°F 

TCAB 

Gabin temperature 

°F 

QMETS 

Crew sensible metabolic heat load 

BTU/hr 


WATER COOLED AVIONICS BAY 


QHX 

Rate of heat removal 

BTU/hr 

WCPAIR 

Mass flow rate of air 

BTUAr-°F 

TBAY 

Compartment temperature 

°F 

TXO \ 

HX air outlet temperature 

°F 

THXAO / 



THXCO 

HX coolant outlet temperature 

°F 

RADIATOR COOLED AVIONICS BAY 
(Same as Water Cooled Avionics Bay) 
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TABLE 4-2. OUTPUT DATA DESCRIPTION OFF DESIGN PERFORMANCE CASES 



(CONTINUED) 


label 

Description 

Unit 

FUEL CELL HX 



QFC 

Heat rejected by fuel cells 

BTU/hr 

WFC 

Fuel cell coolant mass flow rate 

BTU/hr-°F 

tf/ci 

Temperature entering fuel cells 

°F 

tf/co 

Temperature leaving fuel cells 

°F 

CABIN LOOP TEMPERATURES 

•F 

1st 

Interface HX outlet temperature 


2nd 

Chiller outlet temperature 


3rd 

Condensing HX outlet temperature 


4th 

Sensible HX outlet temperature 


5th 

Temperature into cold plates 


6th 

Temperature out of cold plates 


7th w 

Temperature into interface HX 


RADIATOR LOOP TEMPERATURES 

°F 

1st 

Calculated temperature (around loop) into 
Radiator 


2nd 

Radiator inlet temperature 


3rd 

Radiator outlet temperature 


4th 

Flash evaporator outlet temperature 


5th . 

Sublimator outlet temperature 
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TABLE 4-2. OUTPUT DATA DESCRIPTION OFF DESIGN PERFORMANCE CASES 


(CONTINUED) 

1 

Label 

Description 

Unit 

6th 

Cryogenic HX coolant outlet temperature 


7th 

Interface HX outlet temperature 


8th 

Avionics bay HX outlet coolant temperature 


9th 

Cold plate outlet temperature 


10th 

Fuel Cell HX’s outlet temperature 


HEAT LOADS 



QCOND 

Total heat transferred by condenser 

BTUAr 

QSENS 

Heat transferred by sensible HX 

BTU/hr 

QCPUMP 

Cabin loop pump heat load 

BTUAr 

QINTX 

Heat transferred by interface HX 

i 

BTU/hr 

QRPUMP 

Radiator loop pump heat generated 

BTU/hr 

QRAD 

Heat rejected by radiator 

BTU/hr 

QEVAP 

Heat rejected by water evaporation 

BTU/hr 

QRY 

Heat rejected by cryogenic HX 

BTU/hr 

QLAT 

Total latent heat load 

BTU/hr 
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TABLE 4-3. OUTPUT DATA DESCRIPTION - ORBITAL TRANSIENT 


Label 

Description 

QTOT 

Average vehicle heat rejection around orbit 

WEVAVG 

Average rate of evaporant usage 

NO. STEPS 

Number of steps taken around orbit - 310 max. 

ORBIT STEPS 

Each step around the orbit - 2 rows of 15 
steps per row 

WEVAPORANT 

Instantaneous rate of evaporant usage for each 
orbit step 

TRAD IN 

Radiator inlet temperature for each orbit step 

T SINK 

Radiator adiabatic sink temperature for each 
orbit step 

TEVAP OUT 

Coolant temperature leaving the evaporative 
sink for orbit step 

OFF TABLES 

If other than "O", reading off curve - answers 
may not be good 


Unit 
BTU/hr 
lbs /hr 


lb /hr 

°F 

°R 

°F 
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4. 3 How to Vary the Program 

One of the features of the computer program is the ease with which it can be changed 
to other schematic configurations. To demonstrate the ease of changing schematics, 
an example will be presented to optimize, calculate the off-design performance, and 
do an orbital transient to determine the amount of water evaporated for a schematic 
similar to Figure 4-1. 

This schematic differs from the schematic already in the program in the following 
areas: 

1. The cold plates are in front of the avionics bay heat exchanger rather 
than downstream of the avionics heat exchanger. 

2 . There are two sets of cold plates and avionics bays operating in parallel 
splitting the heat load equally between them rather than one of each. 

3. The IiOH is in series with the condenser instead of in parallel. 

To accomplish these changes, the following must be changed in the sizing program: 

A. The heat and latent load of the IiOH are not circulated into the cabin 
but flow directly to the condensing heat exchanger. 

B. The fan flow is only flow rate required by the heat exchanger for maxi- 
mum cabin heat loads with no parallel IiOH path. 

C. The arrangement of the cold plates and avionics bays must be changed. 

D. The weights and powers must include the extra avionics compartment. 


In making these changes, two approaches may be used: 
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4.3 (Continued) 

a. Write the changes for the specific schematic and leave out the items 
that are not there. 

b. Write the changes with the ability to add or delete items such as the 
sensible heat exchanger the avionics bays, etc. 

The first approach is the quickest but program flexibility such as the ability to make 
continued changes is lost. For this example, the second approach will be described 
and this approach is recommended to the user for all changes of this nature. 

To change the fan flow rate and the placement of the LiOH heat and latent load, cards 
87 through 89: 

87 QSH = 0 

88 QLH = 0 

89 QCH =0 

are replaced with the following cards: 

QSH = QS9 - PW9 * 3. 414 

QLH = QL9 

QCH = 0 

QS9 = 0 

QL9 = 0 

PW9 = 0 

The cold plates, even though split into two parallel groups are treated as one group. 

To change the location, the following cards are changed: 

Replace card 276 with: 

276 242 IF (QE1) 247 , 247 , 248 
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4. 3 (Continued) 
with; 

242 T24 = T23 + QCPl/WCPC 

IF (QE1) 247, 247, 248 
Replace card 305 

305 249 T25 = T24P - QCPl/WCPC 

with: 

249 CONTINUE 

The parallel avionics bays are accomplished by splitting the heat load and coolant 
flow rate and adding in an extra set of fans and heat exchangers to account for the 
weight and doubling the fan power to account for the second set of fans. This is 
accomplished by the following changes; 

Replace cards 292 and 293 

292 253 Call EBAY (QE1, TE1, T24, WCPC, RHOE1, CPA, PP, DPE1, 

WEHX1, WEF1, PW (17), V17 

293 293 2, T24P, TAOE1, QET1, 16 

with; 

253 Call E6AY (QEl/2., TE1, T24, WCPC/2. , RHOE1, CPA, PP, 
DPE1, WEHX1, WEF1, PW (1 27), V17, T24P, TAOE1, QET1, 

16) 

Replace card 353 
353 2 + PW (3) 

with; 
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4. 3 (Continued) 

2 + PW (3) + PW (17) 

After card 424 

424 4 + WT21 + WT25 

Add a card 

5 + WEHX1 + WE FI 

For the off design performance section of the program the same type of changes 
must be made. To account for the change in LiOH position the following cards must 
be changed: 

Replace card 724 
724 VI = Vll - V9 

with: 

VI = Vll 

QCABS = QCHBS - QS9 
Replace card 744 

744 642 Call CX2 (WHC, T22, QCABS, QCABL, TCAB, QSH, QLH, 

VI, PW (11), 1, KY, T23 
with: 

642 Call CX2 (WHC, T22, QCABS, QLM, TCAB, QS9, QL9, VI, 

PW (11), 1, KY, T23 

To make the total heat load correct, after card 634 
634 Q5 = QCABS + QCABL + QE1 + QCP1 + QCHIL +3.414* 

PW (4) + PW (17) 
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4. 3 (Continued) 

Add a card: 

2 + PW (17) *3. 414 
After card 636 

636 PWT = PW (11) + PW (12) + PW (3) + PW (4) + PW (6) + 

PW (10) + PW (17) + PW (19) 

Insert the following card 
2 + PW (17) 

In order to change the location of the cold plates the following cards must be changed. 

Replace card 823. 

823 613 IF (V17) 614, 614, 6151 

with: 

613 T2C = T24 + QCPl/WHC 

IF (V17) 614, 614, 6151 
and replace cards 866 and 867 

866 616 T26 = T25 + QCPl/WHC 

867 T27 = T26 + PW (4) * 3. 414/WHC 

with: 

616 T26 = T2C 

T27 = T25 + PW (4) * 3. 414/WHC 

For the double avionics bays the following cards must be changed: 

Replace card 850 
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4. 3 (Continued) < 

850 615 Q16 = QE1 + PW (17) *3. 414 

with: 

615 Q16 = QE1 + PW (17) *6. 828 

Replace cards 855 to 859 

855 Call HX (Q16, WEI, WHC, T24, 16 TE10) 

856 C EBAY TEMPERATURE 

857 TE1I = TEIO + QEl/WEl 

858 C COOLANT TEMPERATURE 

859 T25 + T24 + Q16/WHC 

with: 

Call HX (Q16/2. , WEI, WHC /2. , T2C, 16, TEIO) 

C EBAY TEMPERATURE 

TE1I = TEIO + QE1/2./WE1 
C COOLANT OUTLET TEMPERATURE 

T25 = T2C + Q16/WHC 

For the radiator/evaporator orbital transient, only the heat load due to the second 
bay fan must be corrected. This can be done by inserting a card after card 933. 

After card 933 

933 QPW = (PW (11) + PW (12) + PW (17) + PW (19) + 

PW (4) + PW (6) + PW (10) + PW (3) ) * 3. 414 
Insert: 

2 + PW (17) *3. 414 
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4. 3 (Continued) 

These are the changes needed to change the program to the new schematic. Follow- 
ing the completion of these changes, the sizing program, the off-design performance 
program, and the orbital transient program could be run with the new schematic. 
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APPENDIX I 

DEFINITION OF SYMBOLS 


Hamilton U 

, ■ DIVISION OF, UNITED AIF?Cf»A 

Standard fi @ 


SYMBOL DESCRIPTION - MAIN PROGRAM 


Symbol 


Description 


LA 

NPER 

PP 

J 

NR 

KR 

KI 

KS 

KC 

WEXP 

WT13 

Ml 

M2 

KEYC 

QSH 

QLH 

I 

RHOA 

PX 

PMAX 

DAY 

WTCH 

VCH 

QCH 

WBC 

WT9 

PW9 

QS9 

QL9 

WUC 

ND 

NT 

NQ 

WCPC 

NO 

TB 


Key to Subroutines IF = 2, Print; IF = 1, Do Not Print 
Same as "Perf" 

Power Penalty 
Counter - Index 

Same. as "RN" - Heat Rejection Sink Key 
Same as "RMAX" - Max. Radiator Loop Count 
Same as "HXIM" - Max. Interface HX.Loop Count 
Not Used 
Not Used 

Expendable Weight Penalty Required to Supplement Radiator 
Not Used 

Same as- "Al" - CO 2 Removal Key 

Same as "A 2" - Humidity Control Key 

Same as "FW5" - HX Arrangement Key 

Sensible Heat Upstream of Condenser 

Latent Heat Upstream of Condenser 

Convergence Key - IF = 0, Subroutines Converged 

Cabin Gas Density 

Saturation Pressure @ Cabin Temperature 

Maximum Allowable Cabin Vapor Pressure 

Total Mission Length Including Emergency 

Contaminant Removal Weight 

Contaminant Removal Flow Rate 

Contaminant Removal Heat Generated 

CO 2 Removal Bed Weight (Lbs LiOH Total 

CO 2 Removal Subsystem Weight 

CO 2 Removal Subsystem Power 

CO 2 Removal Subsystem Sensible Heat Generated 

CO 2 Removal Subsystem Latent Heat Generated 

CO 2 Removal Subsystem Ullage Penalty 

Flow Rate Iteration Count 

Same as "EY" - Max. Times Through Flow Rate Loop 

Flow Rate Loop Index Counter 

Radiator Loop Thermal Mass Flow Rate 

Radiator Temperature Loop Count 

Adiabatic Sink Temperature - Radiator 


SP 01T72 


Units 


Lbs/Watt 


Lbs 


BTU/Hr 

BTU/Hr 

Lbs/ Ft 3 

PSIA 

PSIA 

DAYS 

Lbs 

Ft 3 /Hr 

BTU/Hr 

Lbs 

Lbs 

Watts 

BTU/Hr 

BTU/Hr 

Lbs 


BTU/Hr-°F 

°F 
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DIVISION OF UNITED AIRCRAFT CORPORATION 

. fl® 

SYMBOL DESCRIPTION - MAIN PROGRAM (CONTI 

Symbol 

Description 

KTS 

Truncated TB 

TBI 

KTS + 2 

TRO 

Radiator Outlet Temperature 

N1 

Radiator Loop Index Counter 

T1 

Radiator Loop Temperature Into Interface HX 

QSUB 

Topping Water Evaporator Heat Load 

KT 

Interface HX Loop Max. Index Count 

T21 

Cabin Loop Interface HX Outlet Temperature 

NB 

Interface HX Outlet Temperature Loop Count 

N2 

Interface HX Outlet Temperature Loop Index Counter 

PDPI 

Not Used 

PVI 

Control Value of Cabin Vapor Pressure 

TDPT 

Cabin Dew Point 

WT1 

Water Removal Subsystem Weight 

VI 

Water Removal Subsystem Gas Flow Rate 

WBD 

Water Removal Bed Weight (HSC) 

WUD 

Water Removal Ullage Penalty 

WT11 

Water Removal Subsystem Fan Package Weight 

QS1 

Sensible Heat Removed by Water Removal Subsystem 

T22 

Coolant Temperature Leaving H2O Removal Subsystem 

QLT 

Total Latent Heat Load 

QST 

Total Cabin Sensible Heat Load 

TAOC 

Condenser Air Outlet Temperature 

VX 

Same as VI 

QS2 

Cabin Heat Load to be Removed by Sens. HX 

WT2 

Sens. HX Package Weight 

V2 

Sens. HX Flow Rate 

T23 

Sens. HX Outlet Coolant Temperature 

TAOS 

Sens. HX Gas Outlet Temperature 

T24 

Same as "T23" 

WT3 

Water Separator Weight 

WT10 

Ventilation Fan Package Weight 

WTF 

Fan Weight 

WTK 

Check Valve Weight 

WT12 

Sensible Fan Package Weight 

PW1 

Fan Power Required For Cond. HX Fan Flow Rate 


SP 01T72 


Units 

°F 

°F 

°F 

°F 

BTU/Hr 

°F 


PSIA 
°F • 

Lbs 

CFH 

Lbs 

Lbs 

Lbs 

BTU/Hr 

°F 

BTU/Hr 

BTU/Hr 

°F 

Ft 3 /Hr 

BTU/Hr 

Lbs 

Ft 3 /Hr 

°F 

°F 

°F 

Lbs 

Lbs 

Lbs 

Lbs 

Lbs 

Watts 
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SYMBOL DESCRIPTION - MAIN PROGRAM (CONT) 

SP 01T72 

Symbol 

Description 

Units 

PDPO 

Condenser Air Outlet Dew Point Pressure 

PSIA 

XX 

Not Used 

- 

VFC 

M/S Fan Flow Rate - Not Used 

- 

WCF 

Condenser Fan Weight 

Lbs 

WCV 

Condenser Fan Check Valve Wt. 

Lbs 

VT 

Same as"V2" 

Ft 3 /Hr 

WSF 

Sensible Fan Wt. 

Lbs 

WSV 

Sensible Fan Check Valve Wt. 

Lbs 

T24P 

Coolant Loop Temperature Entering C/P 

°F 

WEHX1 

Cabin Loop Cooled Avionic's HX Wt. (Total) 

Lbs 

WEF1 

Cabin Loop Cooled Avionic's Fan Package Wt. (Total) 

Lbs 

TAOE1 

Air Temperature Leaving First Avionic's HX 

°F 

QET1 

First Avionic's HX Load 

BTU/Hr 

T24PP 

Coolant Temperature Leaving First Avionic's HX 

°F 

TEB1 

Compartment Temperature 1st Avionic's Bay 

°F. 

TEB2 

Compartment Temperature 2nd Avionic's Bay 

°F 

TAOB2 

Air Temperature Leaving 2nd Avionic's HX 

°F 

QEBT2 

2nd Avionic's HX Load 

BTU/Hr 

RHOE1 

Gas Density in Cabin Loop Cooled Avioinic's Compt. 

Lbs/Ft 3 

QEB1 

Heat Load to be Removed from 1st Avionic's Bay 

BTU/Hr 

T25 

Cold Plate Outlet Coolant Temperature 

°F , 

WT4 

Pump Package Weight 

Lbs 

T26 

Pump Outlet Temperature-Interface HX Inlet Temperature 

°F 

T2 

Interface HX Outlet Temperature Radiator Loop 

°F 

WT5 

Interface HX Wt. 

Lbs 

DTLM 

HX Log-Mean Temperature Difference 

°F 

T2P 

Temperature Leaving Radiator Loop Cooled Avionic's HX 

°F 

WEHX2 

Radiator Loop Cooled Avionic's HX Wt. 

Lbs 

WEF2 

Radiator Loop Cooled Avionic's Fan Package Wt. 

Lbs 

TAOE2 

Radiator Loop Cooled Avionic's HX Air Outlet Temperature 

°F 

QET2 

Radiator Loop Cooled Avionic's HX Heat Load 

BTU/Hr 

RHOE2 

Gas Density in Radiator Loop Cooled Avionic's Compt. 

Lbs/Ft 3 

T3 

Radiator Loop C/P Outlet Temperature 

°F 

TPW 

Total ECS Power (As calculated by program) 

Watts 

QFCT 

Total, F/C Heat Load 

BTU/Hr 

T4 

F/C Coolant Leaving Temperature 

°F 
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SYMBOL DESCRIPTION - MAIN PROGRAM (CONT) 


Symbol 

Description 

Units 

WT6 

Radiator Loop Pump Package Wt. 

Lbs. 

TBI 

Radiator Inlet Temperature 

°F 

TI 

Radiator Inlet Temperature 

•R 

TO 

Radiator Outlet Temperature 

•R 

QF 

Total ECS Heat Rejection 

BTU/Hr 

T1A 

Interface HX Inlet Temperature - Calculated 

°F 

WT25 

Flash Evaporator Subsystem Weight 

Lbs 

WSUB 

Weight of H 2 O Stored for Periods When No Radiator 

Lbs 

WT8 

Sublimator Subsystem Wt. 

Lbs 

WHYD 

Weight of H 2 Stored for Periods When No Radiator 

Lbs 

WT22 

Hydrogen HX Package Wt. 

Lbs 

EFF 

Heat Exchanger Temperature Effectiveness 

- 

WT21 

GSE HX Weight 1 

Lbs 

WT20 

F/C HX Weight ; 

Lbs 

WT7 

Radiator Panel Weight 

Lbs. 

ARAD 

Required Radiator Area 

Ft 2 

TORAD 

Calculated Radiator Leaving Temperature 

°F 

QEXP 

Heat Load That Must Supplement Radiator 

BTU/Hr 

WUT 

Total Ullage Penalty 

Lbs 

TWT 

Total Fixed Weight 

Lbs 

TEWT 

Total Equivalent Weight 

Lbs 

TMIN 

Minimum Total Equivalent Wt. (Interface HX Loop) 

Lbs 

NJ 

Index Counter 

- 

JJ 

Index Counter 

- 

TMIN1 

Minimum Total Equivalent Wt. (Radiator Temperature Loop) 

Lbs 

NK 

Index Counter 1 

- 

JK 

Index Counter 

- 

WQ 

Float Number of Times Through Flow Rate Loop 

- 

J1 

Index Counter 

- 

J2 

Index Counter 

- 

Q1 

Condenser Total Heat Load 

BTU/Hr 

Q2 

Sensible HX Total Heat Load 

BTU/Hr 

Q5 

Interface HX Total Heat Load 

BTU/Hr 

Q6 

Total F/C Heat Load (Same "QFCT") 

BTU/Hr 

QV 

Heat Rejected by Radiator 

BTU/Hr 

Q8 

Expendable Heat to Supplement Radiator 

BTU/Hr 
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TRA(N) 
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fl® 

SYMBOL DESCRIPTION - MAIN PROGRAM (CONT) 
Description 

TABLES 

Optimum Cond. Air Outlet Temperature for each Coolant Plow Rate 

kjjr \j x j. i lj 

Units 

°F 

TRB(N) 

Optimum Cond. Air Outlet Temperature for each Radiator Outlet Temp. 

°F 

TEO(N) 

Optimum Cond. Air Outlet Temperature for each Interface HX Outlet Temp. 

°F 

WEV(N) 

Rate of Expendable Usage for each Orbit Step 

Lbs/Hr 

L(N) . 

Off Tables for each Orbit Step 

- 

TQ(N) 

Total Equivalent Wt. for each T-Interface HX Out 

Lbs 

TXO(N) 

Interface HX Outlet Temperature 

°F 

PT(N) 

Total Power: for each TXO 

Watts 

WTT(N) 

Total Weight for each TXO 

Lbs 

T41(N) 

F/C Outlet Temperature for each TXO 

°F 

TQ1(N) 

Optimum TEQWT for each TRO 

Lbs 

TRDO(N) 

Radiator Outlet Temperature 

°F 

TXOl (N) 

Optimum TXO for each TRDO 

' °F 

PT1(N) 

Optimum PT for each TRDO 

Watts 

WTT1(N) 

Optimum WTT for each TRDO 

Lbs 

T42(N) 

Optimum T4 for each TRDO 

°F 

WC1(N) 

Table of Coolant Flow Rates 

Lbs/Hr 

TQ2(N) 

Optimum TEQWT for each Coolant Flow Rate 

Lbs 

TRD01(N) 

Optimum Radiator Outlet Temperature for each WC 

°F 

TX02 (N) 

Optimum TXO for each WC 

°F 

PT2(N) 

Total Power at Optimum TEQWT for each WC 

Watts 

WTT2(N) 

Total Weight at Optimum TEQWT for each WC 

Lbs 

T43(N) 

F/C Outlet Temperature @ Optimum TEQWT for each WC 

°F 

WL 

SUBROUTINE Li OH 

Weight of LiOH Required for Mission 

Lbs 

DAY 

Total Mission Length 

DAYS 

TN 

Number of LiOH Canisters 

- 

IN 

Truncate "TN" 

- 

WN 

Float 'IN" 

- 

PW 

Fan Power for LiOH 

Watts 

DPF 

Fan Pressure Rise 

In-H 2 0 

QS 

LiOH Sensible Heat 

BTU/Hr 

QL 

LiOH Latent Heat 

BTU/Hr 

V 

Volume Flow Rate Required/Available 

Ft3/Hr 
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SYMBOL DESCRIPTION - MAIN PROGRAM (CONTI 


Symbol 

Description 

Units 

QCRY 

Excess Expendable H2O Used 

BTU/Hr 

QLAT 

Latent Heat Rejected 

BTU/Hr 

VC 

LiOH Flow Rate (V9/60) 

CFM 

VV 

Ventilation Flow Rate (V10/60) 

CFM 

VE1 

Same as "V17" 

Ft 3 /Hr 

VE2 

Same as "V19" 

Ft 3 /Hr 

WHC 

Cabin Loop Thermal Mass Flow Rate 

BTU/Hr- 0 F 

NA 

Cabin Temperature Loop Index Register 

- 

QCABL 

Total Cabin Latent Load 

BTU/Hr 

QCABS 

Total Cabin Sensible Load 

BTU/Hr 

PWT 

Total ECS Power 

Watts 

QFT 

Total F/C Heat Load 

BTU/Hr 

QTOT 

Total Heat to be Rejected 

BTU/Hr 

T6 

Radiator Inlet Temperature 

°R 

N 

Radiator Loop (Performance) Index Register 

- 

WR 

Radiator Wt. (Not Used) 

Lbs 

WE 

Not Used 

- 

T7 

Calculated Radiator Outlet Temperature 

O 

SjO 

O 

T8 

Sublimator Outlet Temperature (Flash Evap.) 

°F 

T9 

GSE Outlet Temperature 

°F 

QR 

Calculated Total Heat Rejection 

BTU/Hr 

Q22 

Cryogenic HX Heat Rejected 

BTU/Hr 

Q25 

Flash Evap. Heat Rejected 

BTU/Hr 

RHO 

Dummy Variable 

- 

QCDS 

Sensible Heat Removed by Condensing HX 

BTU/Hr 

KY 

Key to Tell Cond. if there is a Sens. HX 

O - NO Sensible HX; 1 - Followed by Sensible HX 

_ 

WHOT 

Sensible HX Thermal Mass Flow Rate 

BTU/Hr-°F 

WMX 

Maximum "WHOT" 

BTU/Hr-°F 

TAI 

HX Air Inlet Temperature 

°F 

TAOR 

HX Air Outlet Temperature 

°F 

TAO 

Calculated HX Air Outlet Temperature 

°F 

QSN 

New Sensible Metabolic Heat Load 

BTU/Hr 

KA 

Off Tables If > 0 in QMET Subroutine 

- 

VHX 

Volumetric Flow Rate Through HX 

Ft 3 /Hr 

QEE1 

Heat to be Removed from First Cabin Loop Avionic's HX 

BTU/Hr 
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Symbol 


SYMBOL DESCRIPTION - MAIN PROGRAM (CONT) 


Description 


Units 


QEE2 

WEI 

TEE1 

T25A 

TAE2 

TEE2 

TEIC 

Q16 

TEIO 

TE1I 

T27 

Q18 

WHX 

TE20 

TE2B 

T5 

T6C 

Q4 

QLTOT 

DTHEA 

TAUS 

A 

WA 

NS 

QPW 

DT 

TIO 

FK 

NN 

AR 

TOR 

TR 

QE 

WT 

TR2 


Heat to be Removed from Second Cabin Loop Avionic's HX 

Avionics (Cabin Loop) Thermal Mass Flow Rate 

1st Avionic's HX Air Inlet Temperature 

Coolant. Loop Temperature Into Second Avionic's HX 

Air. Temperature Leaving 2nd Avionic's HX 

2nd Avionic's HX Air Inlet Temperature 

Same as "TE1" 

Single Avionic's HX Heat Load 
Single Avionic's HX Air Outlet Temperature 
Single Avionic's HX Air Inlet Temperature 
Pump Outlet Temperature (Performance) 

Radiator Loop Avionic's HX Load 

Radiator Loop Avionic's HX Thermal Mass Flow Rate 

Radiator Loop Avionic's HX Air Outlet Temperature 

Radiator Loop Avionic's HX Air Inlet Temperature 

F/C Coolant Loop Outlet Temperature 

Calculated Radiator Inlet Temperature 

Cabin Loop Pump Heat Load 

Total Latent Load 

Degrees of Orbit for Each Step 

Time for Each Orbit Step 

Orbital Position 

Average Expendable Use Rate 

Orbital Transient Loop No. of Steps 

Total ECS Power Heat Load 

Radiator Loop Delta T 

Actual Interface HX Coolant Inlet Temperature 

Radiator A mbient Heat Load 

Evaporator Loop Temperature Index Register 

Dummy Variable 

Radiator Outlet Temperature 

Same as "TOR" 

Evaporator Heat Load 
Dummy Variable 
Sublimator Outlet Temperature 


BTU/Hr 

BTU/Hr-°F 

°F 

°F 

°F 

°F 

°F 

BTU/Hr 

°F 

°F 

°F ■ 

BTU/Hr 

BTU/Hr-°F 

°F 

°F 

°F 

°F 

BTU/Hr 

BTU/Hr 


Hr 

O 

Lbs/Hr 


BTU/Hr 

°F 

°F 

BTU/Hr- Ft2 


°R 

°F 

BTU/Hr 

°F 
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Standard 

Symbol 

WTM 

WT 

J 

PMIN 

PMAX 

PMAX 

TMAX 

WH20 

QL 

QL3 

QL2 

K 

L 

QT 

QS 

TCO 

QC 

WCPC 

TCI 

TAO 

NT 

I 

N 

V 

TC 

RHO 

CPA 

PXO 

WWO 

WWI 

TCCO 

QCDT 

VMIN 

PPF 


u 

I AIHCRA 

fl® 


SYMBOL DESCRIPTION - MAIN PROGRAM (CONT) 
Description 

Manual Valve Weight 
Total Subsystem Weight 
Component Number 

Minimum CO 2 Partial Pressure ( R = . 95) 

CO 2 Partial Pressure Before Cartridge is Replaced ( R = CFT (9)) 
SUBROUTINE CHX 

Max. Allowable Cabin H 2 O Vapor Pressure 

Max. Allowable Cabin Dew Point Temperature 

Rate of H 2 O Removal from Cabin Atmosphere 

Cabin Latent Load 

Total HX Latent Load 

Latent Heat Downstream of Cabin 

IF = 0; No Sensible HX; I 0; Sensible HX 

Set to 1 If No Sensible HX, Set to 2 If Sensible HX 

Cabin Sensible and Latent Load 

Cabin Sensible Load 

Coolant HX Outlet Temperature 

Calculated HX Total Heat Load 

Coolant Thermal Mass Flow Rate 

Coolant Inlet Temperature 

HX Gas Outlet Temperature 

Maximum Number of Times Through Optimization Loop 

Set =0; If Subroutine Converged 

Index Register 

Gas Volume Flow Rate 

Cabin Temperature 

Gas Density 

Gas Specific Heat 

H 2 0 Vapor Pressure of Gas Leaving HX 
Water Flow Rate in Gas Leaving HX 
Water Flow Rate in Gas Entering HX 
Calculated Coolant Outlet Temperature 
Minimum Total Heat Load for Humidity Control 
Minimum Volume Flow Rate for Humidity Control 
Fan Pressure Rise 


SP 01T72 


Units 

Lbs 

Lbs 

mm Hg 
mm Hg 

PSIA 

°R/°F 

Lbs/Hr 

BTU/Hr 

BTU/Hr 

BTU/Hr 


BTU/Hr 

BTU/Hr 

°F 

BTU/Hr 

BTU/Hr-°F 

°F 

°F 


Ft 3 /Hr 
°F 

Lbs/ Ft 3 

BTU/Lb-°F 

PSIA 

Lbs/Hr 

Lbs/Hr 

°F 

BTU/Hr 

Ft 3 /Hr 

In-H20 
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SYMBOL DESCRIPTION - MAIN PROGRAM (CONT) 
Description 


J 

PXI 

TDP 

TWTS 

WT 

PW 

WTF 

TAI 

QS2 

QCS 

PDPI 

TDPI 

TY 

QW 

QD 

TAOD 

DTLM 

UAD 

UAW 

WTM 

WTK 

WTV 

TWT 

WTS 

PWS 

UAS 

TDPS 

VS 

PXOS 

QSS 

WHX 


Component Number 

Inlet Water Vapor Pressure 

Cabin Dew Point 

Total Equivalent Weight-Stored 

Total Weight 

Total Power 

Fan Weight 

HX Gas Inlet Temperature 

Heat Load Downstream of Cabin 

Sensible Heat Removed by Condenser 

Dew Point Pressure Where Condensing Starts 

Dew Point Temperature Where Condensing Starts 

Coolant Temperature Where Condensing Starts 

Heat in Wet Section of Condenser 

Heat in Dry Section of Condenser 

Gas Temperature Where Condensing Starts 

Log-Mean-Temperature Difference 

Dry Section UA 

Wet Section UA 

Not Used 

Check Valve Weight 

Temperature Control Bypass Valve Weight 

Total Equivalent Weight 

Total Weight Stored 

Total Power Stored 

HX UA Stored 

Cabin Dew Point Stored 

Volume Flow Rate Stored 

HX Outlet Dew Point Pressure 

Sensible Heat Removed - Stored 

Heat Exchanger Weight 


SP 01T72 


Units 


PSIA 

°F 

Lbs 

Lbs 

Watts 

Lbs 

°F 

BTU/Hr 

BTU/Hr 

PSIA 

°F 

°F 

BTU/Hr 

BTU/Hr 

°F 

BTU/Hr-°F 

BTU/Hr- U F 


Lbs 


Lbs 

Lbs 


Lbs 

Watts 

BTU/Hr-°F 

°F 

Ft 3 /Hr 
PSIA 
BTU/Hr 
Lbs 
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Symbol 

SUBROUTINE SHX 
Description 

DTF 

Fan Temp. Rise 

DP 

Fan Pressure Rise 

RHO 

Cabin Gas Density 

CPA 

Cabin Gas Specific Heat 

J 

Component Number 

TAI 

HX Gas Inlet Temp 

TCAB 

Cabin Gas Temp 

DTM 

Maximum- Gas To Coolant Temp Difference 

TCI 

Coolant Inlet Temp 

TAO 

Gas Outlet Temp 

N 

Index Register 

V 

Gas Volumetric Flow Rate 

QS 

Sensible Heat Load To Be Removed From Cabin 

PW 

Fan Power 

TCO 

Coolant Outlet Temp 

WCPC 

Coolant Thermal Mass Flow Rate 

DTLM 

Log-Mean-Temperature Difference 

UA 

Thermal Conductance x Area 

• WTF 

Fan Weight 

WTM 

Not Used 

WTK 

Check Valve Weight 

WTV 

Temp Control Valve Weight 

WT 

Total Weight 

TWT 

Total Equivalent Weight 

PP 

Power Penalty 

TWTS 

Total Equivalent Weight Stored 

WTS 

Total Weight Stored 

PWS 

Total Power Stored 

UAS 

Thermal Conductance x Area Stored 

TCOS 

Coolant Outlet Temp Stored 

VS 

Volumetric Flow Rate Stored 

WTX 

Heat Exchanger Weight 

DTF 

SYMBOL DESCRIPTION - EBAY 

Fail Temp Rise 

DP 

Fan Pressure Rise 

RHO 

Gas Density 

CPA 

Gas Specific Heat 


Units 

°F 

In-H 2 0 

Lbs/Ft 3 

BTU/Lb-°F 

°F 

°F 

°F 

°F 

°F 

Ft 3 /Hr 

BTU/Hr 

Watts 

°F 

BTU/Hr-°F 

“F 

BTU/Hr-°F 

Lbs 

Lbs. 

Lbs. 

Lbs. 

Lbs. 

Lbs. /Watts 
Lbs. 

Lbs. 

Watts 

BTU/Hr-°F 

°F 

Ft 3 /Hr 

Lbs. 


°F 

In-H 2 0 

Lbs/Ft^ 

BTU/Lb-°F 
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Symbol 

LF 

TAI 

TE 

TAO 

TCI 

N 

V 

QE 

PW 

QT 

TCO 

WCPC 

DTLM 

UA 

WTF 

WTK 

WTHX 

WTFAN 

TWT 

PP 

TWTS 

WTHXS 

UAS 

WTFS 

PWS 

TCOS 

QTS 

VS 

WTX 


VB 

WH20 

QLAT 

WBC 

WC02 

NC 


u 

) AIRCRA 

fl® 


SP 01T72 


SYMBOL DESCRIPTION - EBAY (CONT) 
Description 

Component Number 

Gas Inlet Temp 

Compartment Temp 

HX.Gas Outlet Temp 

Coolant Inlet Temp 

Index Resister 

Volumetric Flow Rate 

Compartment Heat Load (Excluding Fan) 

Fan Power 

HX Total Load 

Coolant Outlet Temp 

Flow Stream Capacity Rate 

Log-Mean-Temperature-Difference 

Thermal Conductance x Area 

Fan Weight 

Check Valve Weight 

Heat Exchanger Weight (Package) 

Fan Package Weight 
Total Equivalent Weight 
Power Penalty 

Total Equivalent Weight Stored 

Hfeat Exchanger Weight Stored (Package) 

Thermal Conductance x Area Stored 
Fan Package Weight Stored 
Fan Power Stored 
Coolant Outlet Temp Stored 
HX Total Load Stored 
Volumetric Flow Rate Stored 
Heat Exchanger Weight 

SUBROUTINE HSC 

Gas Flow Rate Per Lb of Bed 
Water Removed Per Cycle 
Latent Heat Removal Rate From Cabin 
Bed Size Required For C0 2 Control 
C0 2 Generation Rate 
Loop Counter 


Units 


°F 

°F 

°F 

°F 

Ft 3 /Min 

BTU/Hr 

Watts 

BTU/Hr 

°F. 

BTU/Hr-°F 

°F 

BTU/Hr-°F 

Ihs. 

Lbs. 

Lbs. 

Lbs. 

Lbs. 

Lbs/Watt 

Lbs. 

Lbs. 

BTU/Hr-°F 

Lbs. 

Watts 

°F 

BTU/Hr 

Ft 3 /Min 

Lbs. 


CFM/LbHSC 

Lbs/Cycle 

BTU/Hr 

Lbs. 

Lbs. /DAY 
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Hamilton U 

DIVISION OF UNITED AIRCRAFT CORPORATION 

Standard p® 


SP 0XT72 


SUBROUTINE HSC (CONTI 

Symbol Description Units 


N 

Index Register - Bed Sizing Loop H 2 0 

- 

PVI 

Cabin Water Vapor Pressure Level • 

PSIA 

BL 

Bed Water Loading 

Lbs/Lb 

K 

Off Tables IF * O 

- 

V 

Volumetric Flow Rate Required/Available 

Ft 3 /Hr 

WTV 

Vacuum Valve Weight 

Lbs 

DP 

Fan Pressure Rise 

In-H 2 0 

PD 

System Pressure Loss - Excluding Bed 

In-H 2 0 

WTF 

Fan Weight 

Lbs 

WTK 

Check Valve Weight 

Lbs 

WVC 

Humidity Control Valve Weight 

Lbs 

RHO 

Gas Density 

Lbs/Ft 3 

DAY 

Mission Length 

DAYS 

WTX 

Canister Weight (Excluding HSC) 

Lbs 

L 

Component Weight 

Lbs 

WT 

System Total Weight 

Lbs 

WF 

Fan Weight Increase 

Lbs 

PW 

Fan Power 

Watts 

WB 

Bed Weight 

Lbs 

WU 

Ullage Penalty Weight 

Lbs 

VBM 

Maximum Volumetric Flow Rate 

Ft 3 /Hr 

WH20C 

Calculated Amount of H 2 0 Removed Per Cycle 

Lbs/ Cycle 

WC 

Same As "WBC" 

Lbs/Cycle 

VC 

Volumetric Flow Rate 

Ft 3 /Hr 

WCR 

Required C0 2 Bed Loading 

Lbs/Lb 

PCO2 

First Guess of C0 2 Cabin Partial Pressure Level 

MMHG 

J 

C0 2 Performance Index Register 

- 

BLS 

Calculated COg Bed Loading 

Lbs/Lb 

KC 

Off Tables lF<j>0 

- 

TDP 

Cabin Dew Point 

°F 

VCH 

Dummy - Not Used 

- 

PWS(N) 

Same As "PW" - Stored 

Watts 

WTS(N) 

Same As "WT" - Stored 

Lbs 

WBS(N) 

Same As "WB" - Stored 

Lbs 

WUS(N) 

Same As "WU” - Stored 

Lbs 

WFS(N) 

Same As "WF" - Stored 

Lbs 

VS(N) 

Same As "V" - Stored 

Ft 3 /Hr 
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Hamilton U 

OtVlSION OP UNITED AIRCRAFT CORPORATION 

Standard Q® 


SUBROUTINE HSC (CONT) 


Symbol 

Description 

WTSYS(N) 

System Total Equivalent Weight 


SUBROUTINE (CONTI 

V 

Volumetric Flow Rate 

WTB 

Bed Weight (Chemical) 

DAY 

Mission Length 

WTV 

Check Valve Weight 

WT 

Total Weight 

J 

Component Number 

QSC 

Heat Generated 

DP 

Fan Pressure Rise 


SUBROUTINE EBAY2 

DTF 

Fan Temp Rise 

DP 

Fan Pressure Rise 

RHO 

Gas Density 

CPA 

Gas Specific Heat 

LF 

Componoit Number 

TAI2 

Gas Inlet Temp - 2nd HX In Series 

TE 

Compartment Temp - Design 

TB2 

Compartment Temp - 2nd Bay 

TCI2 

Coolant Inlet Temp - 2nd HX 

TCI 

Coolant Inlet Temp - 1st HX 

QB1 

Compartment Heat Load - 1st Bay 

TA02 

Gas Outlet Temp - 2nd HX 

N 

Index Register 

V 

Volumetric Flow Rate 

QB2 

Compartment Heat Load - 2nd Bay 

PW 

Fan Power 

QT2 

2nd HX Total Heat Load 

QTI 

1st HX Total Heat Load 

TCOl 

Same As "TCI2" 

TC02 

Coolant Temp Leaving 2nd HX 

DTLM2 

Log-Mean-Temp-Difference: 2nd HX 

UA2 

Thermal Conductance x Area: 2nd HX 

WTF 

Fan Weight 

WTK 

Check Valve Weight 


SP 01T72 


Units 


Lbs 


Ft 3 /Hr 

Lbs 

DAYS 

Lbs 

Lbs 

BTU/Hr 

In-H 2 0 


°F 

In-H 2 0 

Lbs/Ft 3 

BTU/Lb-°F 

°F 

°F 

°F 

°F 

°F 

BTU/Hr 

°F 

Ft 3 /Hr 

BTU/Hr 

Watts 

BTU/Hr 

BTU/Hr 

°F 

°F 

°F 

BTU/Hr-°F 

Lbs 

Lbs 





Hamilton 

Standard 


U 

AIRCRA 

fl® 


SP 01T72: 


SUBROUTINE EBAY 2 (CONTI 


Symbol 

Description 

Units 

WTHX 

HX Package Weight 

Lbs 

WTFAN 

Fan Package Weight 

Lbs 

TWT 

Total Equivalent Weight 

Lbs 

PP 

Power Penalty 

Lbs/Watt 

TWTS 

Total Equivalent Weight Stored 

Lbs 

WTHXS 

HX Package Weight Stored 

Lbs 

WTFS 

Fan Package Weight Stored 

Lbs 

PWS 

Power - Stored 

Watts 

TCOIS 

Coolant Temp Leaving 1st HX Stored 

°F 

TC02S 

Coolant Temp Leaving 2nd HX Stored 

°F 

UA2S 

Thermal Conductance x Area Stored 

BTU/Hr-°F 

QT1S 

Total Heat Removed 1st HX Stored 

BTU/Hr 

QT2S 

Total Heat Removed 2nd HX Stored 

BTU/Hr 

VS 

Volumetric Flow Rate - Stored 

Ft 3 /Min 

TAOl 

Gas Outlet Temp - 1st HX 

°F 

EFF 

Temp Effectiveness 

- 

TBI 

1st Compartment Temp 

°F 

M 

Index Register 

- 

TAI1 

1st HX Gas Inlet Temp 

°F 

DTLM1 

Log-Mean-Temp-Difference 1st HX 

°F 

UA1 

Thermal Conductance x Area 1st HX 

BTU/Hr-°F 

UA1S 

Thermal Conductance x Area 1st HX Stored 

BTU/Hr-'F 


SUBROUTINE FEVAP 


TCO 

Coolant Outlet Temp 

°F 

TCI 

Coolant Inlet Temp 

°F 

Q 

Heat Load Desired 

BTU/Hr 

WCP 

Flow Stream Capacity - Rate 

BTU/Hr-°F 

QR 

Heat Load Rejected 

BTU/Hr 

L 

Component Number 

- 

WT 

Subsystem Weight 

Lbs 

WH20 

Water Usage Rate 

Lbs/Hr 

TOMIN 

Minimum Coolant Outlet Temp 

°F 

TO MAX 

Maximum Coolant Outlet Temp 

°F 
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Hamilton U 

OlVlSlON OF UNITED AlRCRA 

Standard p® 


SP 01T72 


SUBROUTINE FANWT 


Symbol 

Description 

Units 

CFM 

Volumetric Flow Rate 

FT 3 /Min 

CFH 

Volumetric Flow Rate 

Ft 3 /Min 

A 

Specific Speed 

- 

DP 

Fan Pressure Rise 

In-H 2 0 

WT 

Fan Weight 

Lbs 


SUBROUTINE CRY 


THO 

Coolant Outlet Temp-Assummed 

°F 

TIN 

Coolant Inlet Temp 

°F 

Q 

Heat Rejected 

BTU/Hr 

WH 

Flow Stream Capacity-Rate 

BTU/Hr-°F 

TH20 

Hydrogen Outlet Temp 

°F 

N 

Index Register 

- 

WC 

Hydrogen Flow Stream Capacity-Rate 

BTU/Hr-°F 

NC 

Component Number 

- 

TOC 

Calculated Coolant Outlet Temp 

•f 

WH2 

Hydrogen Flow Rate 

Lbs/Hr 


SUBROUTINE HX 


R 

Mass Flow Ratio (Cold/Hot) 

- 

WC 

Cold Side Flow Stream Capacity-Rate 

BTU/Hr-°F 

WH 

Hot Side Flow Stream Capacity-Rate 

BTU/Hr-°F 

THO 

Hot Side Outlet Temp 

BTU/Hr-°F 

TCI 

Cold Side Inlet Temp 

°F 

Q 

Heat Rate To Be Transferred 

BTU/Hr 

NCOMP 

Component Number 

- 

EFF 

Temperature Effectiveness (Hot Side) 

- 


SUBROUTINE WTV2 


N Type of Valve 

1- Manual Valve 

2- Check Valve 

3- Elec. Solenoid Valve 

4- Gas Disconnect 

WT Component Weight Lbs 
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Hamilton U 

DIVISION OP UNITED AIRCRAFT CORPORATION 

Standard p® 


SP 01T72 


SUBROUTINE WTV2 /CON TI 


Symbol 

D esc riot ion 

Units 

V 

Gas Flow Rate 

SUBROUTINE RAD 

Ft 3 /Hr 

TY 

Calculated Coolant Outlet Temp 

°R 

T2 

Desired Coolant Outlet Temp 

°R 

B 

Number (2. 0 x 10 - 10) 

- 

TI 

Wall Temp At Inlet 

°R 

T1 

Inlet Coolant Temp 

°R 

ZETA 

Function of TI 

BTU/Hr 

ALPHA 

<5 < T s 3 

BTU/Hr 

TO 

Wall Temp At Outlet 

BTU/Hr 

BETA 

B*Ts 3 

°R 

I 

Index Register 

- 

QA 

Heat Rejected Per Unit Area 

BTU/Hr-Ft' 

AR 

Required Radiator Area 

Ft 2 

WCP 

Flow Stream Capacity-Rate 

BTU/Hr °F 

WR 

Radiator Wt. 

Lbs 

J 

C omponent Number 

- 

WE 

Dummy - Not Used 

SUBROUTINE CX2 


RHO 

Gas Density 

Lbs/Ft 3 

TC 

Cabin Temp 

°F 

WAM 

Max Gas Flow Stream Capacity-Rate-HX 

BTU/Hr-°F 

V 

V olumetric Flow Rate - HX 

Ft 3 /Hr 

WF 

Gas Flow Stream Capacity-Rate Through Fan 

BTU/Hr-°F 

Vll 

Fan Volumetric Flow Rate 

Ft 3 /Hr 

WH 

Assummed HX Gas Flow Stream Capacity-Rate 

BTU/Hr-°F 

WH2C 

Water Condensing Rate 

Lbs/Hr 

QL 

Cabin Latent Load 

BTU/Hr 

QL2 

Latent Load Downstream of Cabin 

BTU/Hr 

TAMIN 

Minimum Gas Outlet Temp 

°F 

TCI 

Coolant Inlet Temp 

°F 

QF 

Fan Heat Load 

BTU/Hr 

P 

Fan Power 

Watts 
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Hamilton 

u 

DIVISION OF UNITED AIRCRAFT CORPORATION 

SP 01T72 

Standard 

fl® 

SUBROUTINE CX2 (CONTI 


Symbols 

Description 

Units 

QSMAX 

Maximum Sensible Heat Load 

BTU/Hr 

QS 

Cabin Sensible Heat Load (Includes Fan) 

BTU/Hr 

QS2 

Sensible Heat Downstream of Cabin 

BTU/Hr 

K 

IF = 0, Single HX, 70 - Has Sensible HX Also 

- 

TAO 

Gas Outlet Temp-Assummed 

°F 

TAI 

Gas Inlet Temp-Assummed 

°F 

QSX 

HX Sensible Load 

BTU/Hr 

TCN 

New Cabin Temp 

°F 

QSN 

New Crew Sensible Load 

BTU/Hr 

KL 

Off Tables IF = 0 

- 

NP 

Index Register 

- 

PXO 

H 2 O Vapor Pressure At HX Exit 

PSIA 

WWO 

H 2 0 Vapor Leaving HX In Gas Stream 

Lbs/Hr 

PX3 

Vapor Pressure of H 2 0 At HX Inlet 

PSIA 

TDP 

Inlet Dew Point 

°F 

TY 

Coolant Temp Where Condensing Starts 

°F 

QT 

HX Total Load 

BTU/Hr 

TCO 

Coolant Outlet Temp 

°F 

WC 

Coolant Flowstream Capacity Rate 

BTU/Hr-’F 

QW 

Heat Removed In Wet Section 

BTU/Hr 

QD 

Heat Removed In Dry Section 

BTU/Hr 

TAOD 

Gas Temp Where Condensing Starts 

°F 

DT 

Log-Mean- Temp-Difference 

°F 

UAD 

Dry Section Thermal Conductance x Area 

BTU/Hr-°F 

UAW 

Wet Section Thermal Conductance x Area 

BTU/Hr-°F 

UAR 

Required Thermal Conductance x Area 

BTU/Hr-°F 

NL 

Component Number 


I 

IF =0, Converged 

- 

WHX 

Volumetric Flow Rate Through HX 

FT 3 /Min 

PXC 

Cabin H 2 0 Vapor Pressure 

PSIA 

TDPC 

Cabin Dew Point Temp. 

SUBROUTINE QMET 

°F 


T2 

Q2 


°F 

BTU/Hr 


K 


New Cabin Temp 
New Sensible Metabolic Load 
IF =/ O, Off Tables 


1-17 



Hamilton U 

DIVISION OP UNITED AIRCRA 

Standard p® 


SP 01T72 


SUBROUTINE QMET (CONTI 


Symbols 

Description 

Units 

T1 

Original Cabin Temp 

°F 

QO 

Original Metabolic Heat Rate 

BTU/Hr/Min 

K1 

Same As "K" 

- 

QN 

New Metabolic Heat Rate 

BTU/Hr/Min 

K2 

Same As "K" 

- 

Q1 

Original Cabin Heat Load-Metabolic 

BTU/Hr 
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Hamilton 

Standard 


U 

DIVISION OF UNITEO AIRCRAFT CORPORATION 

ft® 


SENSIBLE HX SUBROUTINE - SHX 

INPUTS 

QS2 CABIN SENSIBLE HEAT TO BE REMOVED 

TCAB CABIN TEMPERATURE 

T22 COOLANT INLET TEMP 

WCPC COOLANT MASS FLOW 

RHOA CABIN GAS DENSITY 

CPA CABIN GAS SPECIFIC HEAT 

PP POWER PENALTY 

DP2 FAN PRESSURE RISE 

N COMPONENT NUMBER 

FWT(N) HX WEIGHT FACTOR 

FXW(N) SYSTEM FIXED WEIGHT 

SWT(N) PACKAGING WEIGHT FACTOR 

CFT(N+10) FAN EFFI CIENCY 

OUTPUTS 

WT2 HX & FIXED WEIGHT 

PW(12) FAN POWER FOR SENS. HX FLOW 

V 12 HX FLOW RATE 

T23 COOLANT OUTLET TEMP 

TAOS HX GAS OUTLET TEMP 

CFT(N) HX UA 

WTHX HX WEIGHT 

WVALVE AIR BYPASS VALVE WEIGHT 


SP 01T72 


BTU/HR 

°F 

° F 

BTU/LB— °F 
LBS/FT3 
BTU/LB — °F 
LBS/WATT 
IN-H20 

LBS/UA 

LBS 

LBS/LB 


LBS 

WATTS 

CFH 

°F 

°F 

BTU/HR-°F 

LBS 

LBS 
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Hamilton U 

DIVISION OF UNITED AIRCRAFT CORPORATION 

Standard O® 


SUBROUTINE EBAY 2 (QB1, QB2, TE, TCI, WCPC, RHO, CPA, PP, DP, 

WTHX, WTFAN, PW, V, TCOI, TC02, TB1, TB2, 
TAOl, TA02, QT1, QT2, LF) 

INPUT 

QB1 - HEAT LOAD IN FIRST SERIES BAY 
QB2 - HEAT LOAD IN SECOND SERIES BAY 
TE - MAXIMUM COMPACTMENT TEMP 
TCI - COOLANT TEMP INTO FIRST BAY 
WCPC - COOLANT MASS FLOW RATE 
RHO - COMPARTMENT DENSITY AT TE 

CPA - GAS SPECIFIC HEAT 

PP - POWER PENALTY 

DP - FAN PRESSURE RISE 

LF ~ HX COMPONENT NUMBER 

FAN COMPONENT NUMBER=LF+1 
FWT (LF ) — H EAT EXCHANGER WEIGHT FACTOR 
FWT(LF+l)— NUMBER OF FANS & CHECK VALVES 
FXW(LF) -FIXED WEIGHT ADDED TO HX 
FXW(LF+1)-FIXED WEIGHT ADDED TO FANS 
SWT(LF) - STRUCTURAL WEIGHT FACTOR-HX 
SWT(LF+1)— STRUCTURAL WEIGHT FACTOR - FANS 
CFT(LF+1)— OVERALL FAN EFFICIENCY 


OUTPUT 

WTHX - TOTAL HX WT-BOTH BAYS 
WTFAN - TOTAL FAN WT-BOTH BAYS 
PW - TOTAL POWER - BOTH BAYS 
V - FAN VOLUME FLOW RATE 

TCOI - COOLANT OUTLET TEMP- 1ST BAY 
TC02 - COOLANT OUTLET TEMP— 2ND BAY 
TB1 - 1ST COMPARTMENT TEMP 

TB2 - 2ND COMPARTMENT TEMP 

TAOl - AIR OUTLET TEMP 1 ST JX 
' TA02 - AIR OUTLET TEMP 2ND HX 


QT1 - TOTAL HEAT REMOVED BY HX 1ST BAY 

QT2 - TOTAL HEAT REMOVED BY HX 2ND BAY 


SP 01T72 


BTU/HR 

BTU/HR 

°F 

°F 

btu/hr-°f 

lbs/ft 3 

btu/lb-°f 

LBS/ WATT 
IN - H 2 0 


lbs/ua 

LBS 

LBS 

LBS/LB 

LBS/LB 


LBS 

LBS 

WATTS 

CFM 

°F 

°F 

°F 

°F 

op 

°F 

BTU/HR 

BTU/HR 
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Hamilton 

Standard 


U 

DIVISION OP UNITED AIRCRAFT CORPORATION 

P® 


SUBROUTINE RAD (T1, T2, WCP, WR, AR, WE, 


INPUTS 

T1 - RADIATOR INLET TEMP. 

T2 -DESIRED RADIATOR OUTLET TEMP 
WCP -COOLANT FLOW RATE 
J -COMPONENT NUMBER 

TS -EQUIVALENT SINK TEMP (DUE TO ENVIRONMENT) 
AMAX -MAXIMUM ALLOWABLE RADIATOR SURFACE AREA 
EMIS -RADIATOR EMISSIVITY 
SWT (J)- RADIATOR WEIGHT FACTOR 


OUTPUTS 

TY - RADIATOR OUTLET TEMP 

WR - RADIATOR PANEL WEIGHT 

AR - RADIATOR AREA REQUIRED FOR TY 


SP 01T72 


TY, J) 

°R 

°R 

BTU/HR— °F 

°R 

FT 2 

LBS/FT 2 

°R 

LBS 

FT 2 
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Hamilton 

Standard 


U 

OlVISlON OF UNITED AIRCRAFT CORPORATION 


'ft® 


SUBROUTINE F E VAP (Q, WCP, TCI, L, TCO, WT) 
INPUTS 

Q - HEAT TO BE REJECTED 

WOP - COOLANT MASS FLOW RATE 
TCI - COOLANT INLET TEMP 
L -COMPONENT NUMBER 

FWT(L) - HEAT EXCHANGER WT. FACTOR 
FXW(L) - SUBSYSTEM FIXED WT 
SWT(L) - STRUCTURAL WT. FACTOR 
CFT(L) - HEAT EXCHANGER UA 
PP - POWER PENALTY 


OUTPUTS 


TCO - COOLANT OUTLET TEMP 
WT - SUBSYSTEM WEIGHT 
QR - ACTUAL HEAT REJECTED 
WH20 -WATER USAGE RATE 

TOMAX - MAX. COOLANT OUTLET TEMP POSSIBLE 

TO MIN - MIN. COOLANT OUTLET TEMP POSSIBLE 


SP 01T72 


BTU/ HR 
BTU/HR— °F 
°F 

LBS/UA 

LBS 

LBS 

BTU/HR— °F 
LBS/WATT 


°F 

LBS 

BTU/HR 

LBS/HR 

°F 

°F 


1-22 



Hamilton U sp 01T72 

DIVISION OP UNITED AIRCRAFT CORPORATION 

Standard P® 


SUBROUTINE QMET (Q1, T1, T2.Q2, K) 


INPUTS 

Q1 - METABOLIC SENSIBLE HEAT LOAD AT T1 
T1 - ORIGINAL CABIN TEMPERATURE 

T2 - NEW CABIN TEMPERATURE 

— — TABLE OF QS VS TCABIN FOR ONE MAN (LOC 501) 


BTU/HR 

°F 

°F 


OUTPUTS 

Q2 - METABOLIC SENSIBLE HEAT LOAD AT T2 
K - IF/O, OFF TABLES 


BTU/HR 
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Hamilton 

Standard 


U 

DIVISION OF UNlTEO AIRCRAFT CORPORATION 

fl® 


SUBROUTINE CRY (Q, WH, TIN, NC, WH2) 
INPUTS 


Q - HEAT TO BE REJECTED 
WH- COOL-ANT MASS FLOW RATE 
TIN - COOLANT INLET TEMP 
NC - COMPONENT NUMBER 
CFT (NC)— HEAT EXCHANGER UA 


OUTPUTS 

WH2 - HYDROGEN FLOW RATE (WHYD) 
TOC - COOLANT OUTLET TEMP (THOTCAL) 
TH20 - HYDROGEN OUTLET TEMP (THYDO) 


SP 01T72 


btu/hr 

btu/hr-°f 

°F 

BTU/HR- °F 


lbs/hr 

°F 
i °F 
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Hamilton 

Standard 


U 

DIVISION OF UNITED AIRCRAFT CORPORATION 

o® 


SUBROUTINE EBAY (QE, TE, TCI, WCPC, RHO, CPA, PP, DP, WTHX 

WTFAN, PW, V, TCO, TAO, QT, LF) 


INPUTS 

QE - COMPARTMENT HEAT LOAD 

TE — DESIRED COMPARTMENT TEMP 

TCI - INLET COOLANT TEMP TO HX 

WCPC - COOLANT MASS FLOW 

RHO - COMPARTMENT GAS DENSITY 

CPA - GAS SPECIFIC HEAT 

PP - POWER PENALTY 

DP - FAN PRESSURE RISE 

LF - COMPONENT NUMBER OF HX 

fwt(n)— weight FACTOR HX 

FXW(N) — FIXED WEIGHT ADDED TO COMPONENT 

SWT(N) - STRUCTURAL WEIGHT FACTOR 

(USED FOR FAN, VALVE, & FIXED WEIGHT) 


OUTPUTS 

WTHX - HEAT EXCHANGER & FIXED WEIGHT 
WTFAN - FANS & CHECK VALVES WEIGHT 

PW - FAN POWER 

V — FAN VOLUMETRIC FLOW RATE 

TCO - COOLANT OUTLET TEMP 

TAO - AIR OUTLET TEMP LEAVING HX 
QT - TOTAL HEAT REMOVED BY HX 
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SP 01T72 


BTU/HR 

°F 

°F 

BTU/HR-°F 
LBS/FT3 
BTU/LB— °F 
LBS/WATT 
IN - H 2 O 

LBS/UA 

LBS 


LBS 

LBS 

WATTS 

CFM 

°F 

°F 

BTU/HR 



Hamilton 

Standard 


U 

DIVISION OF UNITED AIRCRAFT CORPORATION 


fl® 


SP 01T72 


SUBROUTINE CX2 (WC, TCI, QS, QL, TC, QS2, QL2, V, P, NL, K, TCO, VII, I, QSX) 
INPUTS 


WC — COOLANT MASS FLOW RATE 
TCI -COOLANT INLET TEMP 

QS - TOTAL SENS. HEAT TO BE REMOVED FROM CABIN 
(INCLUDES FAN) 

QL - LATENT HEAT TO BE REMOVED FROM CABIN 

TC -CABIN TEMPERATURE 

QS2 - SENSIBLE HEAT DOWNSTREAM OF FAN 

QL2 - LATENT HEAT DOWNSTREAM OF FAN 

V -HEAT EXCHANGER MAX FLOW RATE 

P -FAN POWER 

NL -COMPONENT NUMBER 

K ~ IF O, SINGLE HX IF 1, ALSO SENS. HX 

VII - FAN FLOW RATE 

TOLQ - TOLERANCE ON HX UA CONVERGENCE 
PCAB “CABIN PRESSURE 

RA -CABIN GAS CONSTANT 

CPA -CABIN GAS SPECIFIC HEAT 

QSM -METABOLIC SENSIBLE HEAT 

OUTPUT 

TCAB -CABIN TEMP (MAY BE RAISED IF SYSTEM 
NOT CAPABLE) 

HXCFM - AIR FLOW THROUGH HX 

TD PCAB— CABIN DEW POINT 

TAI RO - HX AI R OUTLET TEMP 

TCO -COOLANT OUTLET TEMP 

QSX -SENSIBLE HEAT REMOVED BY CONDENSER 

I -IF O, SUBROUTINE CONVERGED 


btu/hr -°F 

°F 

BTU/HR 

BTU/HR 

°F 

BTU/HR 
1 BTU/HR 
CFH 
WATTS 


FT3/HR 
DEC. FRAC. 
PSIA 
FT/°R 
BTU/LB— °R 
BTU/HR 


°F 

CFM 

! Op 

°F 

°F 

BTU/HR 
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Hamilton „ of _ TED U BAPT co __ sp oit72 

Standard R® 


SUBROUTINE CHX (QS, QL, TC, TCI, WCPC, RHO, CPA, PMAX, DPF, TAO, J, QCS, V, 
PW, WT, TCCO, PXO, I, QS2 , QL2, K, TDP) 


INPUT 

QS 


CABIN SENS. HEAT LOAD 

btu/hR 

QL 

— 

CABIN LATENT HEAT LOAD 

btu/hr 

TC 

— 

CABIN TEMP HEAT LOAD 

°F 

TCI 

— 

COOLANT INLET TEMP 

°F 

WCPC 

— 

COOLANT MASS FLOW RATE 

BTU/HR-°F 

RHO 

— 

CABIN GAS DENSITY 

LB / FT3 

CPA 

— 

CABIN GAS SPECIFIC HEAT 

BTU/LB— °F 

PMAX 

— 

MAXIMUM CABIN H 2 O VAPOR PRESS. 

PSIA 

DPF 

— 

FAN PRESSURE RISE 

IN-H20 

J 

— 

COMPONENT NO. 

— 

QS2 

— 

SENS. HEAT ADDED DOWN STREAM OF FAN 

BTU/HR 

QL2 

— 

Latent heat added down stream of fan 

BTU/HR 

K 

— 

I (IF O, NO SENS HX 

— 

CFT(J+10) 

_ 

t (IF 1, SENS HX ALSO 
FAN OVERALL EFFICIENCY 



FWT(j) 

— ■ 

HX WEIGHT FACTOR 

LBS/UA 

FXW(j) 

— 

FIXED WEIGHT ADDED TO SUBSYSTEM 

LBS 

SWT(j) 

— 

STRUCTURAL WEIGHT FACTOR 

LBS/LB 

OUTPUT 

TAO 


HX AIR OUTLET TEMP 

°F 

TDP 

— 

CABIN DEW POINT 

°F 

QCS 

— 

SENSIBLE HEAT REMOVED BY COND. 

BTU/HR 

V 

— 

HX AIR FLOW RATE 

FT3/HR 

PW 

— 

POWER REQUIRED BY COND. FLOW 

WATTS 

WT 

— 

HX+VALVE WEIGHT 

LBS 

TCCO 

— 

coolant OUTLET TEMP. 

°F 

PXO 

— 

HX OUTLET VAPOR PRESS. 

PSIA 

I 

— 

CONVERGENCE KEY — IFO, O.K. 

— 

WTHX 

— 

HX WEIGHT 

LBS 

MVALVE 

— 

AIR BYPASS VALVE WEIGHT 

LBS 

CFT(J) 

\ 

— 

HX UA 

BTU/HR- °F 
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Hamilton U cp ni r n79 

DIVISION OF UNITED AIRCRAFT CORPORATION OiT VJ 1 X I £j 

Standard R® 


SUBROUTINE HSC (WC02, QLAT, DAY, RHO, PVI, PD, L, WT, V, WB, WU, VCH, WF) 


INPUTS 



WC02 

- 002 REMOVAL RATE 

LBS/DAY 

QLAT 

- LATENT HEAT REMOVAL RATE 

BTU/HR 

DAY 

- MISSION LENGTH 

DAYS 

RHO 

- CABIN GAS DENSITY 

LBS/FT3 

PVI 

- REQUIRED MAX. H 2 O VAPOR PRESS LEVEL 

PSIA 

PD 

- SYSTEM PRESSURE LOSS EXTERNAL TO CANISTER 

1N-H20 

L 

- COMPONENT NUMBER 

— 

FC02 

- RATIO OF PEAK PRODUCTION RATE TO AVG RATE 

— 

C02L 

- C02 DESIGN BED LOADING 

LBS/LB 

CYCL 

- 1/2 CYCLE TIME 

MIN 

TCAB 

- CABIN TEMP 

°F 

FWT(L) 

- NUMBER OF CANISTERS 

— 

FXW(L) 

- SYSTEM FIXED WEIGHT 

LBS 

SWT(L) 

- STRUCTURAL WEIGHT FACTOR 

LBS/LB 

X(426) 

- TABLE H20 LOADING 

— 

X(351) 

- TABLEOF CO 2 LOADING 

— 

VCH 

- NOT USED 

— 


OUTPUTS 


WT 

- SUBSYSTEM WEIGHT (EXCLUDING FAN) 

LBS 

V 

- SUBSYSTEM FLOW RATE 

FT3/HR 

WB 

- HSC BED WEIGHT 

LBS 

WU 

- ULLAGE PENALTY 

LBS 

WF 

- FAN WEIGHT INCREASE FOR HSC 

LBS 

WTCAN 

- EMPTY CANISTER WT 

LBS 

WVVAL 

- VACUUM CYCLING VALVE WT 

LBS 

WCVAL 

- CONTROL VALVE WT 

LBS 

WKVAL 

- CHECK VALVE WT (FAN FLOW) 

LBS 
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subroutine lioh (j, day, dpf, wl,wt pw, v, qs, ol) 
inputs 

J -COMPONENT NUMBER 

DAY - MISSION LENGTH 
DPF -FANAP 

WC02 - AVERAGE CO 2 REMOVAL RATE 
TCAB -CABIN TEMPERATURE 

FC02 - RATIO OF ACTUAL PRODUCTION RATE/A VG. 

FNCO - NUMBER OF CANISTERS ON LINE 

FRESH - NUMBER OF FRESH CANISTERS ON LINE 

CFT (It)- FAN EFFICIENCY 

CFT (J)-C0 2 REMOVAL EFFICIENCY 

FWT (J)- CANISTER WEIGHT FACTOR (TOTAL WT.) 

OUTPUTS 

WT - SUBSYSTEM TOTAL FIXED WEIGHT 

WL - MINIMUM WT OF LIOH REQUIRED FOR MISSION 
PW - FAN POWER REQUIRED FOR LIOH 
V - VOLUME FLOW RATE 

QS -/(SIZING PROGRAM-SENS & FAN HEAT LOAD 
l (OFF DESIGN-SENS HEAT OF REACTION 
Q L - LATENT HEAT LOAD 
PMAX - C02 PARTIAL PRESSURE AT 60%*JREM 
PMIN -C02 PARTIAL PRESSURE AT 95%r?REM 


SP 01T72 


DAYS 
IN - H 2 O 

LBS/DAY 

°F 


LBS/LB 


LBS 

LBS 

WATTS 

FT3/HR 

BTU/HR 

BTU/HR 

BTU/HR 

MM HG 

MM HG 
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Standard Q® 


APPENDIX H 

SUBROUTINE DESCRIPTIONS 


Listed below is a short description of what each of the subroutines does: 


START 

LOAD 

UNBAR 

KANDK 


LIOH 




SHX 


EBAY 


Reads a comment card and prints it. A blank card terminates a 
run. 

Loads the input data into the proper storage locations. 

A table interpolation routine. 

Calculates the vapor pressure or dew point temperature of water 
vapor. Given one properly it will calculate the corresponding 
property. 

Calculates the heat loads, flow required, and weight of LiOH 
required for CO 2 removal. 

Calculates the optimum volume flow required and the heat exchanger 
weight to remove a given sensible and latent heat load. 

If a sensible heat exchanger is also used, the coolant leaving 
temperature will be kept at or below the cabin dew point. 

Sensible heat exchanger subroutine calculates optimum volume flow 
rate and heat exchanger size. 

Calculates the optimum heat exchanger size and volume flow rate to 
remove an air heat load from a separate compartment. Also 
calculates fan weight and power. 


II- 1 



Hamilton 

Standard 


U 

DIVISION OF UNITED AIRCRAFT CORPORATION 

fl® 


- 2 - 

APPENDIX II (CONTI 
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i 


EBAY 2 - Does the same as EBAY for two compartments in series. Calculates 

which compartment controls the sizing of the equipment and uses 
the same equipment in each compartment. 

HSC - This routine calculates the optimum flow rate and bed size for 

HSC. This material absorbs both C0 2 and H 2 0 vapor. During the 
off design performance, the water vapor partial pressure and C0 2 
partial pressure are calculated as well as the air flow required 
for humidity control. 


CONT - Calculates the contaminant canister weight and volume flow rate 
required for contaminant control. 


FEVAP - . Calculated the subsystem weight required to remove the input heat 

load. For off design performance it will remove as much heat as 
possible up to the desired heat load. 

FANWT - Calculates fan weight as a function of volume flow rate and pressure 
rise. 

CRY - Calculates the cryogen flow rate required to meet the given heat 
load. (Off design performance only). 

JH& Calculates the hot side leaving temperature giving the flow rates, 

heat rejected, and the cold side inlet temperatures. Used for 

sensible heat transfer only. 
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SUBROUTINE DESCRIPTIONS 

WTV2 - Calculates valve weight as a function of volume flow rate for: 

a) Check valves 

b) Solenoid valves 

c) Manual shut off valves 

d) Gas disconnects 

RAD - Calculated radiator area and weight required to reject a given 

heat load at a given inlet temperature. If the area required exceeds 
the maximum area available, the routine will calculate the outlet 
temperature that can be reached at the maximum area. 

CX2 - Calculates condenser air outlet temperature and cabin dew point for 

a given sensible and latent load. It also calculates the heat exchanger 
volume flow rate required to meet the heat load. If the heat load 
can not be met at maximum air flow, the cabin temperature will 
be raised in l°F increments until it can be met. 

' QMET - Calculates the metabolic sensible/latent heat load ratio as the cabin 

temperature is varied. 
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FIGURE 4-1 DECK SET UP 



FIGURE 4-2 COMPUTER CARD SETUP 


II-4 


9-n/Q-ii 


FROM CABIN 



(£1 
S> § 
2 3 

Q. ~ 

2>S 

a: 


D 

«■ 


FIGURE 2—3. SAMPLE CASE — VENTILATION, C0 2 , HUMIDITY & 


TO 


hd 


O 


H 

CO 


DIVISION OF UNITED AIRCRAFT CORPORATION 









Hamilton 

Standard 


U 

OIVISON OF UNITED AIRCRAFT CORPORATION 


fl® 


APPENDIX 111 
LOGIC FLOW DIAGRAM 



SP 01T72 


13/12/72 
CHAP T TITLE 


AUTOFLOW CHART SET - H2A7B 


PAGE 31 


INTRODUCTORY COMMENTS 


H247 SHUTTLE EC/LSS SIZING PROGRAM 
LOAD DATA 



SP 01T72 


10/12/7 2 
CHART TITLE 


*UTaf LOW CHART SET - H247B 


PACE .02 


PROCEDURES 


/ 800 / 


I 


14.10*—) I 
1 

01 

I 


I 10 

I 

I NOTE 

20 

I I 

H 

I 

I 

COMPUTED GO TO I 

I 

* LIST = (XI Jl ,J * 

* 

I I START 

H 

I 

I 

FOR NPER I 

I 

* 146,157) 

* 

I I 

H 

l 

*- 


I 

**** ***** 

* * 

I 1 

H 

I 

I 

802 2.11 I 

I 

I 


I I 

H 

I 

I 

001 20.01 I 

I 

I 


* --- - — 

— * 

I 

I 

005 31.19 I 

I 

I 

21 

I 


1 


I 

I 

/ WRITE TO DEV 

/ 

I 

02 

I 


I 

I 

/ 6 

/ 


--* 

I 


I 

I 

/ VIA FORMAT 

/ 

I I 

H 

I 

IF 

OUTSIDE THE RANGE 

I 

/ 935 / 


T I LOAD 

H 

I 


I 

I 

/ FROM THE LIST / 


II (X) 

H 

I 

02. 10--- 1 I 

I 



I I 

H 

I 


802 I 11 

I 

I 


* 


I 


/ WRITE TO DEV / 

I 

I NOTE 

22 

I 


I 


/ 6 / 

I 

**** ***** 

* * 

I 


I 


/ VIA FORMAT / 

I 

* LIST = <XIJ!,J = 

* 

I 


I 

/ 

930 / 

I 

* 176,187) 

* 

PRINT INPUT OATA 
I 


I 

I 

/ 

FROM THE LIST / 

1 

I 

********* 

I 

* * 

I 

I 

03 

l 

I 


I 

I 

I 

I 

I 

23 

/ WRITE TO DEV 

/ 

I 

* 

********** 

I 

/ 

/ 

/ 6 

/ 

I 

* 

LIST = IXIJI.J * * 

l 

/ WRITE TC DEV 

/ 

/ VIA FORMAT 

/ 

I 

* 

101,115) * 

I 

/ 6 

/ 

/ 910 / 


I 

* 

********** 

l 

/ VIA FORMAT / 


/ FROM THE LIST / 


I 


1 

I 

/ 960 / 


1 


I 


I 13 

I 

I 


I NOTE 

04 

I 


/ WRITE TO DEV / 

I 

I 


********* 

* * • 

I 


/ 6 / 

I 

SET UP MAX I MF LOOP 


* LIST = IXIJI.J * 

* 

I 


/ VIA FORMAT / 

I 

COUNTS 


* 1,64) 

* 

I 


931 / 

I 

( 


********* 

* * 

I 

/ 

FROM THE LIST / 

l 

I 


l 


I 

— 


1 

I 

24 

I 


I 


I 

I 


— * 

I 

05 

I 


I 

I 

I KR a RMAX 

1 


— 

I 


I NOTE 14 

I 

I 

I 

/ WRITE TO DEV 

/ 

I 

* 

********** 

I 

I K I = HX1M 

I 

/ 6 

/ 

I 

* 

LI ST a { XI J 1 ,J * * 

I 

I 

l 

/ VIA FORMAT 

/ 

I 

* 

131,1451 * 

I 

I ICS a SPLITM 

I 

/ 91 5 / 


1 

* 

********** 

1 

I 

I 


/ FPOM THE LIST / 


I 

I 

I NOTE 06 
*********** 
* LIST = CYCL • 'QEB2 ♦ 
*********** 
l 

l 07 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 982 / 

/ FROM THE LIST / 


I 

I 

I NOTE 08 
*********** 

* LIST * (XlJltJ = ♦ 

♦ 67,801 , PERF * 
*********** 

I 

I 

I 

OFF DESIGN 
PERFORMANCE 
I 
I 


I 09 


I NR = RN I 
I I 
I NPER = PERF I 


l 

I 


I 

I 15 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 932 / 

/ FROM THE LIST / 

I 

I 

I NOTE 16 
*********** 

* LIST = IXIJI.J = * 

* 161*1751 * 

*********** 

I 

I 

I 17 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 933 / 

/ FROM THE LIST / 


I 


I NOTE 18 
*********** 

* LIST = IXIJI.J = ♦ 

♦ 116*1271 * 

*********** 

I 

I 

I 19 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 934 / 

/ FROM THE LIST / 


KC = CONDM 
WEXP = 0. 
WT 13 = 0. 


I 
I 
I 

Ml a A1 
M2 * A2 
KEYC = FWS 
OSH = 0. 

QLH = 0, 

I * 0 

* * 


I 

I 

l 

CALCULATE AIF DENSITY 


l 27 


1 RHOA = I 
I PCA0*14*./RA/ I 
I (TCAB ♦ 459.61 I 


I 

I 

I 

MAXIMUM DEW PT 
I 
I 
I 

I / 


/ 3.03 
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CHART TITLE - PROCEDURES 


02.28- 

— )* 
I 

03 

* — — ► * 


I I 


H 

I 25 I 

1 

I I 

KANDK 

H 

l | KR * 1 


I 1 

IPX.TCAB ♦ 

H 


I I 

459.6,2) 

H 



I 1 


H 

I 03.14 H 



I 

I 

1 04 

* * 

1 PM AX = RHMAX*PX l 

I l 

l OAT » DAYN ♦ DAYE l 

I I 

I PP » PPF ♦ I 

I 0AY*PPV*24. I 

* — — * 

I 

! 

1 

CONTAMINATE CONTROL 
I 
I 

I 05 


16 


H I 


13 

I CONT 

H I 

* 

I . 

! ( 15 , DP2 »DAY , 

H I 

* 

10 

I WTCH, VCH.QCH) 

H I 

• 

11 


H I 

• 


I 

1 

I 

I 

I 

I 

C( 

LIOH SUBROUTINE 

l 

I 

I 



1 

201 I 

I 

06 I 

* 

I 

I 

13 

I 

H I 

18 

I LIOH 

H I 

I 

I. 

I ( 9 , DAY , DP9 , 

H I 

• 

10 

I WBC » WT 9 » P W9 » 

H l 


II 

I V9 , QS9 1 QL9 1 

H I 

— * I 



- 1 * 

I 


1 NT ■ 1 1 

! I 

I WC - WC1N I 

* 

I 

I 

LOOP ON FLOW RATE 

I 

04.02*— II 

82 1 NOTF 10 

• •**••*•*• 
BEGIN DO LOOP * 
1 58 NO * 1 » NT * 
********** 

18.04 1 I 

I 

IT MASS FLOW 
I 
I 

I 11 


WCPC « WC*CPR 

NC » l 

I 

I 

I 


15 

-* 

1 


23 

TRO 


16 

-• 

l 


I 

I 

LOOP ON RAO 1 AT OR 
OUTLET TEMP 
I 

04.03*—) I 

78 1 NOTE 17 

*********** 

* BEGIN 00 LOOP * 

* 60 Nl * 1. KR * 

I 

17.02 I 1 

1 

SUBLIMATOP WEIGHT 
I 
I 
I 

* 18 


10 . 
’ 102 


• * 

* 

U-/OI 

I 

l 

1 

l 

1 

75 I 

*----- ----------- - 

I wr. * < OS E ♦ QSM 

I 1'LP ♦ 0CP1 ♦ 

1 QCP2 ♦ 

1 3FCI/1 16./CPR 

I 

I 

I 


01 • 

22 


I 

I 07 

------ 

OSH * 0. 

QLH « 0. 

QCH » 0. 

pwm » o. 

WUC » 0. 

NO « l 

* 

1 

I 

USE INPUT OR 
CALCULATE OPTIMUM WC 
AND TRO 

I 

I . 

1 

* 08 


IS 

THIS THE 

LAST 



ITERATION 

I 





I 


12 


I 

COMPUTED 

GO TO 

I 


I 

FOR 

LA 

I 


I 

30 

3.13 

I 


1 

84 

4.05 

I 

-* 



I 

l 

I 

IF OUTSIDE THE RANGE 

I 

03.12 1 1 

! 

30 * 13 


21 * 14 

* * 


• * 

<♦> 


NO - INITIAl TRO 


-)* 

I 


83 I 19 

* — 

I TB = TS - 459.6 
I 

1 KTS = T8 

1 

l TB1 = KTS ♦ 2 

*- 

I 

I 

l 

I S FIRST GUESS LESS 
THAN OR = 34 
I 


03 . 
85 


04 . 

... 86 
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CHART TITLE - PROCEDURES 


/ 22 / 


I 


03.01 1 I 

I 

01 

I WC = WCIN 

I 

I 

03.02 ) I 


74 I 

02 

I NT = FY 

I 

— — * 


• 3.10. 
... 82 


NO 

03.20 — - 1 * 

85 I 03 

* * 

I TRO = 3*. I 


I 

I 

I 


! 3 . 17 ! 

... 78 


OUTLET TEMP 


NO QSUB 


03.18 1* 

101 I 06 

• * 

I T 1 * TRO - I 
I OSUBl/WCPC I 

I QSUB * QSU81 I 

* — — * 

I 

I 

1 

IS TEMP TOO LOW 
I 
I 
I 

» 07 

* * 

• * 

* * 1-/01 

* T 1 - 34. ♦ ♦ 

* * I 

* * I 

* * I 

* 

I < + > 


TOO LOW 

)* 

103 I 

* 

I T 1 » 34. 

I 

I QSUB « 

I WCPCMTRO - 


08 


I 

1 

I 

Til I 


104 


I 

I 

I 

I 

I I 
I 


I CFTI24I « 

I WCPC*ALOGC( TRO - 
1 32.1/IT1 - 32. M 


09 


I 

I 

I 


03.18 1* 

102 I 

10 

I T 1 a TRO 

I 

1 QSUB = 0. 

I 

I 

I 

I 

CALCULATE - IS 

THIS 

LAST ITERATION 


) I 


105 I 

11 

( COMPUT ED GO 

1 TO I 

I FOR LA 

I 



I 87 

5.01 I 

I 88 

4.12 I 

I 

I 

I 

IF OUTSIDE THE 
l 

RANGE 

I 

LAST ITERATION 


04.11 ) 1 


88 I 

12 


I KT = l l 


I 

I 

I 


. 5.02. 


I 


91 • 


I 


YES 

03. ?0 ) * 

P t I 04 

* « 

I TRO = T81 l 


T 

I 

I 


3.1 7. 
... 70 


THIS IS LAST 
I TER A T ION 


03. 1 ? 1 * 

H 4 I 


78 
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CHART TITLE - PROCEDURES 



+ - 



)* 





N(1T LAST ITERATION 

I 



* 09 






I 



* * 





04.11 — 1* 

I 



• * 





87 I 

01 I 


<-/0 » 

• * 






-* I 

♦- 

* 

PVI - PM AX * 





I T 2 1 = T1 ♦ DTX 

I I 

I 


• * 





I 

I l 

I 


• * 





I KT ■ KI 

I I 

I 


* * 






-* I 

I 


* 





I 

I 

I 


I (♦) 





04.12 — 1 I 

1 

I 


I 





91 I 

02 I 

I 


I 






- * i 

I 


l 





I NB » 1 

I 1 

I 


I 






»• I 

I 


I 





I 

l 

I 


311 I 

10 




I 

t 

I 


— 

-* 




I 

I 

I 

I 

PVI * PMAX 

I 




LOOP ON INTERFACE 

I 

I 

* — 


-* 




outlet temp 

I 

I 


1 





I 

I 

I 


I 

1 1 




110 I NOTE 

03 I 

I 



-• 




* * * ««***»* 

* I 

I 

I 


H 




* BEGIN DO LOOP 

* [ 

I 

I 

I KANDK 

H 




* 50 N2 « 1. KT 

* I 

I 

I 

[ (PVl.TDPT.l! 

H 





* I 

I 

I 


H 




I 

I 

1 

I 


H 




10.39* — | I 

I 

I 

*-- 


-• 

♦ 


1« 

407 I 

04 I 

I 


I 


I 


I 17 

I WCPC « WC PC* WR AT 

I I 

I 


I 

12 

I 

I 0S2 a QSM ♦ QSE ♦ I 










, 

I 

I 

1 

TDPT « TDPT - 

I 

I 

I 

414 ♦ 1 

I 

I 

I 

I 

459.6 

1 

I 

I 

PWI 111*3.414 ♦ I 

I 

I 

1 

* - - 


-* 

I 

1 

OSH I 

FIRST GUESS OF DEW 

PT I 

I 


I 


I 

*- 


I 

I 

♦ - 




I 


I 

l 

I 



310 I 

13 

I 


I 

I 

05 I 


* — 


-* 

I 


l 18 

I PflPI » . R *P HA X 

I I 


18 

! HSC 

H 

I 

14 

I M 

I 

I I 


1. 

I (WC02.0LM.DAT. 

H 

I 

19 

1 SHX H 

I WT l 3 * 0. 

1 I 


10 

I RHOA.PVI .DPI . 

H 

1 

I • 

1 (QS2. TCA8.T22 . H 


-* I 


U 

I 14.WT1.PWI 111. 

H 

I 

10 

I WCPC. RHOA, CPA, H 

I 

1 


I 

I Vl.WBO.WUD. 

M 

l 

11 

I PP.2.DP2.WT2, H 


! 


GO TO DESIRED 
SUBROUTINE 

I 

CO 2 


l 

I 

06 

l COMPUTED GO TO 1 

I FOR Ml I 

I 

I 

210 

301 

7. Cl 1 
5.07 I 


I 

I 

I 

If J1JTSIUE THE RANGE 

I 

I 

I 

USB SUBROUTINE 
I 

05.06 » I 

3G t I 07 

• * 

I I « 

I I KANDK H 

| I I PV I » T? 1 ♦ H 

| I 459.6. 2 1 H 

I I H 

* 

I 

1 

I 05 


1 I DP T * T 2 1 I I 

* I 

I » 

I I 

* 


I I VCH.WTIll H 


— — — * 

I 

I 

I 14 


I wee » o. i 

i i 

I WUC « 0. I 


I 

I 

I 

SET C02 WTS TO ZERO 
I 
I 

I 15 

* * 

I WT9 * 0. I 

I PWI9I « 0. I 

I Vll * VI I 

| V9 * 0. I 

I QS9 = 0. I 

I 0S1 - 0. I 


I 

I 

I 16 

» * 

1 T22 » T21 I 

I » 

I QLT = OLN I 

I I 

I QST = OSH ♦ QSE I 
I 1 

I TAOC = 0. I 

I I 

I VX » Vl 1 


1 

I 


I I PWU2) .V2.T23. H 
I I T AOS I H 

* — * 

1 

1 

I 

* 19 


* * (0/*) 

* T23 - TCAB 

* * I 

* * I 

* • I 

* .... 

I t-J . 14 . 

I . 09 . 

I .... 

I 51 


T24 o T 23 

pwm = o. 

WT3 = 0. 

V10 * TVOL - VI - 
V2 - VCH 

I 

I 

♦ 21 

* * 


• * 

* 

(♦I 


NO VENT FLOW 

}* 

832 I 22 

*- — * 

I V10 = 0. I 

I I 

1 PWtlOI ■ 0. I 

I I 

I WT1 0 * 0. I 

* 

I 

I 

I 


6.04. 


803 


B 04 
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PROC EDURES 


/ 803 


/ 


I 

05.21 »! 

I 0 


I PWUOI ■ 

i vio*opio/5io./ 
I C FT ( 101 


I 

I 

I 02 


17 I H 
14 I FANWT H 
1 • I ( VI 0* DP10» WTF ) H 
10 I H 
III H 
* --- — --- * 


I 

I 

I 03 


I WT 10 * I 

! WTF*FWT( 10) I 


I 

05.22 II 

804 I 04 


I V12 * V2 ♦ VCM I 


I 

I 

I 

SENS FAN WT 
I 
I 

I 05 


I PW ( 12 I * I 

! V12*DP2/510./CFT I 
I (121 I 

* — - — « 


I 

l 06 

* — « 

17 I H 

14 I FANWT H 


I. I ( V 1 2* 0P2 » H TF l H 


10 I H 

III H 


I 

I 

I 07 


* — -* 

18 I H 

II I HTV2 H 

I. I ( V12 , 2 « WTK ) H 
10 I H 

III H 


I 

I 

I 08 


I WT 12 * l 


I ( F WT ( 12 I *< WTF ♦ I 
I WTKI ♦ • 9*WTF ♦ I 
I FXMU2 ll*SWT< 121 I 


I 

I 

I 09 

* — ---- * 

I COMPUTED GO TO I 

I F OR L A I 

* * 

I 242 9.11 ! 

I 2422 6.11 I 


I ♦ 

I I 

I I 

IF OUTSIDE THE RANGE I 


I I 

♦ ♦ 


•06.09* — I* 

2422 I 11 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 2423 / 

/ FROM THE LIST / 


I 

I 

I NOTE 12 
*********** 
* LIST = WTF, WTK * 
*********** 
I 
I 
I 


24 2 
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CHART TITLE - PROCEDURES 


05.0ft II 

I 


I QST = QSM * QSE ♦ I 
l QS9 QCH I 


VCH » 0. I 

I 

OLT = QLM ♦ Ql 9 I 


I 

l 

I 

GO TO WATER REMOVAL 
SUBROUT INE 
CONO HX 

I 

I 

20* I 03 


14 


H 

n 

CHX 

H 

i. 

(OST.QLT, TCAB, 

H 

10 

T2 1 » WC PC » RHO A, 

H 

n 

CPA.PMAX.OPI , 

H 

i 

TAOCt ItQSltV 1. 

M 

i 

Pwl , WT 1 * T22 , 

H 

l 

POPO. I ,OSH, 

H 

i 

01 H.KEYC. TOPTI 

H 


I I-/OI 

I 


14 

09 


252 

Vll 


- 1 * 

I 


VI 

I 


08 

I 


1* 

219 I 13 

* * 

I XX * l. I 

* * 

1 

! 

I 14 

* 

14 I H 

!9 I SHX H 

I. I I QS2« TCAB.T22 « H 
10 I WCPC* RHOAt CPA » H 

II l PP # 2 » DP2 # WT2 * H 

I I PW(l2)fVl2* H 
I I T23 * T AOS 1 H 
* • 

1 

I 

l 


I 

I 

l 

I 

207 I 

T DPT * TCPT - 
459.fr 

WT 3 = 

f XWl 3»*SKTI 3) 


WBO 

WIJO 


51 

05 


— 


1 < -/ 0 » 

I 

I 

I 

I 

I 

251 I 

* 

I Vll * VI ♦ V9 


07 

I 


205 


■I! 

I 


09 


I 0S2 - QSM ♦ QSE ♦ ! 
I QS9 ♦ QCH ♦ I 
I PWI*3.414 ♦ QSH - I 

I QS1 1 


QS2 - 2# 


15 



T?4 
V 1 2 


T?2 

0. 


I 

I 

I 

14 . 
09 . 


T24 » T23 
HT3 * 0. 


1 l*» 
I 
I 
! 

I 

I 

l 


I 

I 

I 

VENTILATION FLOW 

I 

) i 

217 I IT 

* — * 

I VIO ■ TVOL - I 

I Vll - V 1 2 I 


NO VENT II AT ION 
REQUIRED 

j « 

240 I 

* 

I VIO = 0. 

1 

I PMIIOI • 0. 
I 

I WHO =* 0. 

I 

I 

I 


8.04. 


8.01 


241 


50 
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CHART TITLE 


. AUTQFLOW CHART 5 E T t N247B 


SP 01T72 

PACE 08 


PROC EOURES 


VENTILATION REQUIREO 


07.18 1* 

2M I 01 

I PWIIO) » I 

I V10*DP 10/510./ 1 

I CFTMOI I 

♦ * 


I 

I 02 


• 

17 I H 
14 I FANWT H 
I. I ( V10,DP10,KTFI H 
1 0 I H 
III H 
* 


I 

I 

I 

VENT -WT 

I 

I 

1 03 

* 

I WT 10 - I 

1 FWT(10I*WTF 1 

* — • 

I 

07.19 II 

550 I 04 

6 

I VX = VI I 

I I 

I VFC = 0. I 

* * 

I 


I 



245 I 

05 

17 

I 

H 

14 

I FANWT 

H 

U 

I t VI 1 . DP 1 »WCF ) 

H 

10 

1 

H 


11 

I 

H 

I 

I 

l 06 

18 

1 

H 

I 1 

I WTV2 

H 

1 . 

I ( VI It 2*WCV 1 

H 

10 

I 

H 

I 1 


H 

I 

I 07 

I 

WT 1 1 « 

I 

I 

1FWT<11I*(WCF ♦ 

I 

1 

WCVJ ♦ • 9*WCF * 

l 

1 FXWI 111 l*SWTC 11 1 

I 

I 

PWdll = 

I 

I 

I VI 1* DP 1/510. /C FT 

I 

I 

III 1 

1 


I 

I 

I 08 


I COMPUTED GO TO I 

I FOR LA I 

* e 

I 1001 9.03 I 

I 1002 9.01 l 


I 

I 

If OUTSIDE THE RANGE 
I 
I 
I 


/ 9.01 
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10/12/72 


AUTOFLOW CHART SET H247B 


Chart title - procedures 


08. 08*— 1 * 

1002 I 01 

/ WRITE TO DEV / 
/ ft / 

/ VIA FORMAT / 

/ 1003 / 

/ FROM THE LIST / 


♦ * * * 

* LIST 

* * * * 


NOTE 02 

***** 

WCF « WCV * 

* * * * 


08.08 1 I 

1001 


I 4*1 
I 
I 
1 
I 
I 
I 


V2 


17 I 

14 I FANWT 

I. I ( V12.DP2.WSF I 
10 I 


♦ }• 

| I NOTE 10 

I ••**••*••** 

I * LIST « WSF * WSV * 

I *********** 


-) * 
I 


18 I 
II I 
I . I 
10 I 

n i 


WTV? 

I VIZ f ? v W$VI 


I 


I WT12 « 

I (FwT(12l*IWSF ♦ 
I WSVJ ♦ • 9*W SF ♦ 
I FXWl 12)1 *SWT 112 I 


COMPUTED GO TO I 
FOR l A I 


?C2 

1D0A 


. 11 I 

. 09 l 


I 

IF IJTStnr THf RANGE 
1 

09.08 » I 

1334 I 09 

/ WRITE: TO Ot V / 

/ ft / 

/ VIA FORMAT / 

/ 242 3 / 

/ FROM THf LIST / 

I 

I 


-06.09*-- ) I 

I 

242 * 


l I-/0T 
1 
I 
I 
I 
I 
I 


T?4P = T24 
WEHXl * 0. 

WEF1 = 0. 
PHI 1 71 • 0. 
V 1 7 = 0. 
TA0E1 = TCA8 


I 


I RHDEl * I 

I PCAB*144./RA/ I 

I (TEl ♦ 459.61 I 

*- — — -* 

I 

I 

I 

* 15 

* * 


OE02 *- 


09. 15--- I * 

254 1 


I QE B 1 * 061 



II-/OI . 

9 . 
18 . 



l 

I 

19 


I 

I 

I 

254 


1 

I 

I 

FHAY2 

IQEH1 ,QEB2. 

- - * 

H 

H 

M 


253 I 

16 

10 

i 

TFl.T24.WCPC, 

H 

*-- 


— * 

1 1 

i 

R HOE 1 , CPA , PP « 

H 

15 

I 

H 

i 

i 

OPE l .WEHXl , 

H 

13 

I EBA V 

H 

I 

I 

Wt'F 1 ,PWi 17> , 

H 

I . 

I IQEI.TE1.T24, 

H 

I 

I 

VI 7, T24PP, 

H 

10 

I WCPC.RHOEl, 

H 

I 

i 

T24P ,TEB1 , 

H 

II 

I CPA.PP.DPEl, 

H 

I 

I 

TEB2.TA0E1, 

H 

1 

1 WEHXl, WEfl, 

H 

I 

I 

TA0B2.QETI, 

H 

l 

1 PHI171.V17, 

H 

I 

I 

0FRT2, 1 6 1 

H 

I 

I 

l T 24P .T AnEl , 
I 0ET1.16) 

H 

H 

* — 


1 

» | 




I 

1 3 


I 

I 

1 

1 

I 

■> r 'S * 

20 



QFTl * 0. 

1 


I 

17 1 

• 




T24PP « T 24 

l 

1 

l 

T24PP 

* T24 I 1 

1 1 

* T 2 4P - 

* 

TEl 

I- 

*-♦ 


TER l ■ TCAH 

l 

I 

I 

TEB 1 * 

TEl II 

I 1 

* 

* 

I 

1 


TEB2 * Tf.AB 

I 

I 

TFB2 = 

Tf.AB I I 


* 

1 


TA0B2 * Tf.AB 

I 

I 

TA0R2 = 

TCAB I I 

1 

1 0/ ♦ » 

10 

01 


QEBT? * 0. 

I 

1 

* - 

Q6BT2 

= 0. 1 l 

I 

1 


249 


• 10.01 . 
... 249 
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CHART TITLE - PROC B)URES 


COLD PLATE 


09.13*--! * 
249 I 


I T?5 * T24P ♦ I 

l QCPl/WCPC I 

» * 

I 

I 

I 

CAB 1 9 100P PUMP POWER 
I 
I 

24 6 I 02 

*- — - * 

I PW(4) = I 

I WCPC*DP4/CPC/ l 

I RH0C*.0542/CFT( 4! I 

* — ■-* 

I 

I 

I 

PUMP WEIGHT 
I 
I 

I 03 

* — - * 

! WT4 * I 

I (WCPC/RHOC/CPC* . I 
I 07 4 6* DP 4 I * *0 * 4 I 


I 

-I I 


WT4 = I 

( W T4*F WT l 4 ) ♦ I 

fX„(4! »*SWT(4| | 


I 

I 

UMP JUTLET TEMP 

I 

I 

f 

T?h = T?5 ♦ 
PWI 4 ! *3. 4J 4/WCPC 

WCPC = WCPC/WPAT 

T 2 = T 1 ♦ (T26 - 
T 2 1 ! * WP A T 

I 

1 


SIZE INTERFACE HX 


-I* 

I 


-!* 

1 


I t- ) 

I 

I 

I 

I 

1 

408 I 09 

* * 

I T21 = T21 ♦ 1. ♦ I 
I T2 - T 26 I 

*- — — 

I 

I 

I 


I 

I 

I 

I 

I 

410 I 

* 

I T 2 = T26 

I 

I CFTI5) » 0. 

I 

l WT5 = 0. 

* — 

I 

I 

I 


I <0! 
1 
I 
I 
I 
I 
1 


13 

I 


407 


-22 


413 


10/12/72 


AUTOFLOW CHART SET - H247B 


SP 01T72 

PACE 1 l 


CHART TITLE - PROC EOURES 


10.12 1 I 

I 

* — 

I DTIM - (T26 - 

I T 2 - T21 ♦ 

I T 1 I/AL3GMT26 - 
l T2» /(T21 - Tl) I 

*--- 

I 

I 

1 


10.13—1 I 

41 3 I 


CFTI5I * 
WCPC*1T2 - 
Tl J/DTLM 

WT5 » 

CF T I 5 J*f WTI 5 1 ♦ 
FXW ( 51 

* - - -- — - 

I 

1 

I 

RADIATOR LOOP TEW PS 

I 

10.11 — 1 I 

I 

4? 2 * 03 



I I -/O 1 

I 

I 

423 

i 

1 o 
* * 


)• 

424 I 

RH0E2 - 
P CAB* 144. /R A/ 
( TE2 ♦ 459.61 

I 

I 


15 I 
13 I 


07 

H 


COLO PLATE OUTLET 

-11.05*— I* 

425 I 

* — — 

I T3 ■ T2P ♦ 

I QCP2/WCPC 

* — - 

I 

I 

I 

PUMP POWER 

I 

I 


I PWI61 * 

I WC*DP6/RH0R*0. 

I 0542/CFTI6) 

* -- 

I 

I 

1 

TOTAL ECS POWER 
I 
I 
I 

— 

I TPW » PWtlll * 

I PW( 12 ) * PW €41 ♦ 
I PM (6 I ♦ PW 191 * 
I PW 1 17 1 ♦ PW ( 19 1 
i pwiio) ♦ pwm 

I 

I 

I 

FUEL CELL LOAD 
I 
I 
I 


I 

I 


OFCT » OFC 
FW2*TPM 


11.15*— »* 

404 I 17 


I KT6 * I 

1 ( WT 6*FWT ( 6 ) ♦ I 

I F XW ( 6)1* SWT 161 I 


I 

I 

I 

RADIATOR INLET TEMP 
I 
1 

I 18 

* * 

| TRl * T4 ♦ I 

I 3. 414*P W ( 61 /WCPC I 


I 

I 

I 

ABSOLET TEMPS 
I 
I 

I 19 

* — — — * 

1 TI =* TRI ♦ 459.6 1 

I I 

I TO = TRO *■ <*59.6 I 



T2P * T? 

I 


WFMX? = 0. 

I 


WFF2 = 0. 

1 


PW ( 19 ) = 0 

I 


V 1 9 « 0. 

I 


T A 062 = TCAB 



I 



I 

I 

05 

l CET2 * 0. I 


I 

I 


. 11 .09, 

. . . 4? 5 



(OE2.TE2.T2. 

H 

10 I 

WCPC . RH0E2 , 

H 

It I 

CPA.PP.0PE2. 

H 

I I 

WEHX2.WEF2. 

H 

I I 

PW! 19I.V19. 

M 

I I 

T2P»TA0E2» 

H 

I I 

QET2.18) 

H 

-* 


I 1 

I I 

I I 

* 08 I 

* * l 

• • I 

* *1-11 

* T2P - TE 2 * 

* • 

* • 

* • 

• 

110/*) 

I 

I 

l 

I 

I 

I 

.14.09. 

... 51 


I 

I 

T FC OUT 

I 

I 

I 13 

* — • 

I T4 * T3 ♦ I 

I QFCT/WCPC I 

* * 

l 

I 

I 

PUMP WT 

I 

1 


I 14 


* 

I WT 6 » I 
I I WC/RH0R*,0748* I 
I DP6 ) **0.4 I 


I I 

I I 

I 1 

* 15 I 

* * I 

* * I 

• * 10/*) I 

• WT 6 - 2.5 * ♦ 

* * A 

* * I 

* * I 

* ( 

I 1-1 I 

I t 

I I 

I 1 

I I 

I I 

403 I 16 l 


I WT6 * 2.5 I I 

[ 

I I 

I I 

4 * 


OF = WCPCMTR1 - 
Tl ) 

T 1 A = Tl 


I 

I 

l 

IS THERE A RAOIATOR 
I 
I 

I 20 

* -* 

I COMPUTED GO TO 1 
I FOR NR I 


I 170 12.01 I 

I 170 12.01 I 

I 171 11.21 I 

I 170 12.01 I 

I 170 12.01 I 

I 171 11.21 I 

• * 

I 

1 

I 

IF OUTSIDE THF RANGE 


t 

11.20*— It 

171 I 21 


*- — * 

17 I H 

II I FEVAP H 

I. I I OF, WCPC. TRI , H 
! 0 I 25 , T 1 A.WT25 ) H 

III H 

* ---* 


I 

I 

I 22 


WSUB = 

WCPC • { TR 1 - 
Tl 1 /965 • * T SUB 

WT8 = 0. 


I 

I 

I 


... 172 
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PROCEDURES 


SIZE SU8L FOR TOTAL Q 

11.20*—)* 

170 I 01 

* — * 

I C FT I 8 I ° I 

I WCPC*ALOGUTR l - 1 

I 32.1/ITl - .32.11 I 


I 

I 

I 

SU8L WT 

I 

I 

I 02 

* — • 

! WT8 * I 

I F WT t 8 ) *CFT ( 8 ) ♦ I 
I FX W ( 8 ) *SWT ( 8 ) I 

1 WT25 = 0. I 


I 

i 

I 

WATER STOREO 
I 
I 


I 03 


I WSUB * I 

I WC PC* ( TR I - I 
I Til/ 1065. *TSUB I 


I 

I 

I 

S IZE CR VO HX 

11.22-—) I 

172 I 04 

* — ------- — * 

I WHY D * I 

I WCPCMTR I - I 

I Til/ I1440)*TCRY I 


DTI M = t TP I - 
460. - 

T 1 ) / ALOGI C TR l - 
40. J / I T i ♦ 420.1) 


l 

I 

I 05 


CFT ( 2 2 ) = 

WC PC* I TR I - 
Tll/OTLH 

WT22 = 

FWT ( 2? ) *CF T ( 22 ) ♦ 
f XW(?2) *SWTl 221 


I 

I 

I 

S IZF GSE HX MFR = 2 


T C I -0 

I 

1 

I 06 

* 


EFF a 1. - T 1 /TR I 

C FT ( 2 1 I = 

WC PC *2 • * AL OGI ( 1. 

- FFF/2 . ) / ( l . - 
EFF)) 

WT21 = 

FWTI 2 1 )*CFT ( 21 ) ♦ 
FXWI 21) *SWT( 21) 


) 

I 

S 121- F/C HX -CHECK 
FLUIO TEMPS 
I 
I 


— I* 

I 

* 08 

* * 


* * <-/ 0 ) 

* TFCO - T 4 * — 


* * 

to 


711 * 09 

* * 


* * t-/0) 

♦ TFCI - T 3 * 


CAN NOT BUILD HX 


-12.08* — )* 
710 I 


I WT 20 = 2000. I 

I I 

I CFT I 20 ) = 10000. I 


, 14.09. 
... 51 


(♦) 


712 
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PROC EOURES 


SIZE HX 


MFR= 1 


12.09 1* 

I 

712 * 01 

* * 

* * 

* (TFCO - * I -/♦ 1 

* TEC! 1/IT4 - * 

* T3 1 - l. * 


I (01 


.13.06. 
... 71 5 


I * 



714 I 

02 




I 

DTLH * (TFCO - 

1 

I 

T4 - TFC I ♦ 

I 

I 

T3 1 /ALOG( ( TFCO - 

I 

I 

T4>/(TFCI - T3II 

J 

1 




II 

— 


716 I 

03 


CFT ( 201 « 

I 


QFCT/DTLH 

I 


WT20 » 

I 


CFT ( 201 *FWT ( 20 ) 

» I 


FXM<2QI*SWT(20I 

I 


MFC = 

I 


QFCT/I TFCO - 

I 


TFC I 1 

I 

I 

1 

I 

RADIATOR WT 


1 


13.01 — »• 
715 I 


l OTLM » TFCO 



06 


T4 I 


YES 

♦ 1 * 

I 841 I 07 

l * * 

1 I WEXP * 0. I 


I 

( 

l 


620 I 04 

* * 


18 1 


H 

12 1 

RAD 

H 

I. 1 

1 ( T I • TO.MCPC * 

M 

10 1 

[ MT7.ARAD.MEXP, 

H 

12 i 

[ TORAD.Tl 

H 


! 14.02! 

... 82? 


I 


I 

l 

DID RAD DO TOTAL JOB 
I 
I 
I 

• 05 


* * 1-1 
♦TO - TORAD ♦ *-♦ 

* .5 * l 

* * I 

* * l 

* .... 

no/M . 14 . 

1 . 01 . 

1 .... 

I 642 

4 

l 
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PROC EOURES 


NO 

13.05 ) * 

842 l 01 


QEXP = 

WCPC* (TORAD - TOI 

WEXP * F EXP*Qf XP 

CFT(24» <* 
WCPC*ALOGUTORAO 
• 49 1.61/IT1 - 
32*11 


l 

13.07 1 I 

822 I 02 


I WUT * WUC ♦ WUO I 


I 

1 

I 

TOTAL SYSTEM FIXED WT 
I 
I 

I 03 


TWT * WT 1 ♦ WT2 ♦ 
WT3 WT 4 ♦ WT5 ♦ 

WT6 ♦ WT 7 ♦ WT8 ♦ 
WT 9 ♦ WT 10 ♦ 
WTCH «■ WEXP ♦ 

WT 1 1 *■ WT 1 2 ♦ 

WT 1 3 ♦ WEHX1 ♦ 
WFHX2 ♦ WE F 1 ♦ 
WEF2 ♦ WT 22 ♦ 
WT20 ♦ WHYO ♦ 
WSUB ♦ WT2 l ♦ 

WT 25 


I 

l 

I 04 


TEWT = 
TPW^PP 

TQIN2I 

TXO { N2 ) 

PT ( N2I 

T WT ♦ 

♦ WUT 

= TEWT 

= T 2 1 

= TPW 

l 

I 

I 

WTTIN2) 

= T WT 

T EO ( N? 1 

= TAOC 

T 4 1 ( N2 » 

= T4 

1 

I 

I 

« 

06 

* 

• 

* 

* 

« 

* 

* T 2 5 - 

TCMAX ' 

* 

• 

* 

♦ 

* 

* 

« 


I 

1-/0) . 


I 

I 

I 

14 . 
09 . 

51 


IS CABIN RH 
SATISFIED 




♦ 






I 


73 * 

08 



I 


* 

• 



I 


* 

• 



1 


* 

* I-/0) 



I 


* 1 

*-♦ 



I 


• 

* I 



I 


* 

• I 



I 


* 

* I 



I 


* 

.... 



I 


I 

!♦» . 15 . 



I 


I 

. 01 . 





I 

.... 



I 


I 

90 



I 

0 - 

05. 19*-- 1 I 




I 

I 

51 1 

09 



I 

I 

• 




I 

I 

I COMPUTED GO TO I 



1 

I 

1 FOR 

LA I 



I 

1 






I 

I 

I 76 

16.01 I 



I 

I 

I 77 

14.10 I 

* 


I 

I 

* 


* 

07 

1 

I 

I 



* 

I 

I 

I 



• 

I 

I 

IF OUTSIDE 

THE RANGE 


* 

(-/Ol I 

1 

I 


TCMAX 

*- 

I 

14.09 > I 



* 


I 

77 l 

10 


* 


I 




0 


t 

/ 

/ 

* 



I 

/ WR I TE 

TO DEV / 

I 

IH 


1 

/ 6 

/ 

I 



I 

/ VIA FORMAT / 

I 

I 



I 

l 

/ 940 

/ 

I 

♦ 



I 

I 

I 



800 
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PROCEDURES 


HUMIDITY OK - UP T21 
14.0a — i* 

<30 I 01 


I N8 « NB ♦ t I 

* — — * 

I 

l 

50 ( 02 

* — * 

I T21 = T21 ♦ 1. I 

* — — a 

1 

I 

I 

* 03 

* * 

* • 

* * NO 

• ENO OF DO *-♦ 

* LOOP * I 

* * I 

* • I 

* .... 

IVES . 5 . 

1 • 04 . 

I 

I 

I 

I 04 


I NB = NB - 1 
I 

I T21 - T21 - 1. 

* — 

I 

I 

I 

IS THIS FIRST TIME 
THRU T1HX LOOP 
I 
l 
I 

* 05 


• I-/OI 

*-♦ 

* I 
I 
I 

. 16 • 
. 00 . 


16,03 ) I 

56 I 06 

* * 

1 THIN « TQU I I 

I I 

l NJ - 1 I 


I 

I NOTE 07 
*•*♦**•*•** 

• BEGIN 00 LOOP • 

* 700 JJ « 2, NB ♦ 


I 

11- 

I 


* I-/OJ 
TQIJJI *-♦ 

* I 
* I 


I 


15 

10 


703 
TWIN « 
NJ 


TO I JJ ) 
• JJ 


1 5,08 1! 

I 

700 • 10 


fnd nr do 
t OOP 


lYf S 

I 

I 

1 

I 

t 

I 


16,10. 
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CHART TITLE - PROCEDURES 


1 

14.09 1 I 

I 

* 01 

* * 

* * 

<01 * * <♦! 

♦ -* NB - 2 ♦ 


1 6 
09 


* * 

* 

<- 1 


2 7 * 02 


63 

NB 


WCPC/WRAT 1 


• 15.06. 
... 56 


HOW MANY TIMES THRU 
TRO LOOP 


-1* 

I 


61 

<01 * 

♦- * 


7 . 
09 . 


I < ♦ I 
I 


FIRST TIME THRU TRO 
LOOP 




153 I 


15.05 II 

1 


I COMPUTED GO TO I 

I FOR LA I 


I 62 
I 59 


16.09 I 
16.16 I 


I 

I 

l 

IF OUTSIDE THE RANGE 
I 

16.01*— 1 I 

62 I 09 


NB = 1 


I 
I 

1 WCPC = WCPC/WRAT 
I 

I NJ * l 


I 

I 

I 

STORE VALUES 
1 

15.10 II 

65 1 10 

-- --* 

TQKN1I = TQ (NJ I 

TRD0(N11 = TRO 

TX01IN11 » 
TXO(NJ) 


11 


I WTTKN1I « I 

1 WT T I N J I I 

I I 

I T42 ( Nil * T4KNJI I 


155 I 

NC » NC - l 


05 

— * 
I 


WO NO 
WCl(NO) ° WC 


TQ2(NQ) » 

1000000. - wo 


TRD01 (NO) 
TX02INQI 
I 
I 

PT2 < NO 1 ’ 0. 

WTT2 (NQI = 0 

T43INQ) = 0. 

I 

I 

I 


TRO 

T21 


I I 

1 TRBINII » TEO(NJ) I 

*-- * 

I 

I 

1 12 

/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 954 / 

/ FROM THE LIST / 

I 

I 

1 NOTE 13 

****••«•**« 

* LIST =» WC, TRO * 

1 

I 

I 14 

/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 941 / 

/ FROM THE LIST / 

I 

I 

I NOTE 1 5 
*********** 

* LIST =» * 

* (TQIJI ,1X0(0), * 

* PT ( J | , WT T ( J 1 ,J = * 

* 1 , NB) * 

*********** 

16.08 ) I 

59 I 16 

I NC * NC ♦ 1 I 

* * 

I 

I 

I 

I / 


/ 1 7. 01 
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16.16—1* 

60 1 01 


I TAB » TRO ♦ FW1 


STORE VALUES 


END OF 00 *- 

LOOP • 


I NC * NC - 1 

I 

I TRU a TRO - FW 1 


I 

I 

I 

IS IT FIRST TIME THPU 
TRO LOOP 

I 

I 

I 

* 04 


* 

* 


* 

• 

1-/0) 

* NC 

- 1 

• 

« 

• 


• 

* 


* 

* 



• 



I (♦ > 
! 


16. 05 

t 

1 

1 

I 


151 


05 

MINI 

TQI III 

I 

NK 

- 1 

I 

I 

1 

I 

OOP TO HND M|N 
I 

WT 


I 

I NOTE 

06 

* * * * 

• * * * 

• • 

RFC IN 

DO LOOP 

• 

160 JK 

* * * * 

= 2, NC 

* * * * 

• 

* * 





• 07 


* 

* 


* 

• 


• 

* 

I-/OI 


T.MIN1 - 
• TQ1IJKI * 


• * 

(• ) 


I MINI a TQI (JR I 

I 

| NK * JK 


•16.04*—)* 
150 I 

O' 

NC a 

1 

NK • 

1 

17.13 II 

180 ! 

l 

COMPUTED 

i GO TO 

FOR 

LA 

31 

17.11 

[ 743 

18.11 


I 

l 

IF OUTS 10E THE RANGE 
I 

17.10-—) I 
1 

31 * 11 


32 
T 21 


I I ♦ I 
I 
l 
( 

I 

I 

I 


TXOINJ) I 
1 

= 2 1 


. 3.10. 
... 82 


-17.07*—)* 

I 

160 * 13 


END OF DO 
LUOP 


I YE S 

I 

1 

I 

I 

I 

I 


1* 

154 I 


MCI (NO) - WC 
TQ2IN0I « TQI INK ) 


TROOl (NQ) 
TROOINK ) 


TX02 1 NO ) > 
TXOl(NK) 

* * 

I 

I 

I 15 


PT 2( NO I - PTIINK) 


WTT2IN0) = 
WTT1 INK) 


TRAINQI 

T43(NQ) 


TRBINK) 

T42INK) 


16 


/ WRITE TQ DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 950 / 

/ FROM THE LIST / 


I 

I 

I NOTE 17 

• •••••***** 

* LIST a HC * 

I 

I 

I 16 

/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 951 / 

/ FROM THE LIST / 

I 

I 

I NOTE 19 
*********** 

* LIST a * 

* I TQI I J L I . TRDOI J 1 1 * 

* » TX01 1 J1 ) . P T 1 1 J 1 ) * 

* .WTTtlJlUJl = * 

* ltNC) • 

*********** 

I 

I 

I 

IS THIS FIRT TIME 
THRU WC LOOP 
I 
I 


1 


20 


• * 

<♦> 


WEIGHT 

DECR EASING -STEP WC 


“16.07 *— } * 

156 I 21 


WC = OWC*WC 


157 


761 
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CHART TITLE - PROCH5URES 


761 


17 

21 


WEIGHT INCREASING-USE 
LAST ITERATION 


I HC * WC1 I NO - 1 | 1 

I I 

I T*n = TRDOl (NO - I 


17.21 II 

I 


/ 

17.10- 


I 

-I I 
I 


END OE 00 
LOOP 


IYES 
I 

I 

LOOP 01 D NOT CONVERGE 
I 
I 

I 05 

/ / 

/ WRITE TO DEV / 

/ 6 / 

/ VIA FORMAT / 

/ 952 / 

I 

I 

I 06 


06 * WCPCMT4 - 
T3I 

TEXPI = TORAO - 
459.6 

Q7 = WCPCMTRI - 
TEXPI I 

09 = 

WCPC*I TEXPI - 
TROI 

I 

I 


I QCRY » 

I WCPCMTRI - Til 
I 

I CFTI7I = ARAD 


I WC * WCl(NT) 

I TRO « TRDOl (NTI 
I 

I T21 * TX02 ( NT ) 

I 

I NO ■ NO - 1 


I 

I 

I 

DOES SYS CONTAIN LIOH 
I 
I 
I 

* 14 


DEC* E A S I NS 


1 NO « ND ♦ 1 

1 

I 

01 - WCPCMT22 - 
T21 1 *WRAT 

— * I 

I I 

*- 

COMPUTED GO TO I 

17.20 1 * 


I 




I 

FOR 

M2 l 

I 

157 * 

* * 

01 

I 

1 

ENO WC LOOP 
1 
I 


I 

1 

02 - WCPC*IT23 - 
T22 1 *WR AT 

I I 

I I 

I 

I 

93 

92 

18.18 1 
18.17 I 

* 

* 

* TQ2( NQI 

•T021NQ - 
* 

* 

* C-/OI 


I 

I 

Q5 * WC PC* ( T2 - 
Til 

I I 

I I 




11* I 
* l 

158 * 04 

* * 



1 

I 

I 

IF 

OUTSIDE 

THE RANGE 

* * 
* 

I 

* * 

* * 

NO 

*- 

I 

12 I- 

- * i 





1 

•II 

I 


YES - SUBTRACT FAN 
HEAT LOAD 

I 

18.16 1 I 

92 I 17 

* -~* 

I Q 59 = QS9 - I 
I PW9* 3.41 4 I 


— 18.15*— | I 

93 I 18 

1 QL AT = QLT ♦ QLM I 

* 

I 

1 

I 

PRINT WEIGHTS 
I 
I 

I 19 

/ WRITE TO DEV / 

/ 6 / 

/ VIA FORMAT / 

/ 904 / 

/ FROM THE LIST / 


I 

I 

I NOTF 20 


I 

II 

750 I 07 


/ / 
/ WRITE TO OEV / 

/ 6 / 

/ VIA FORMAT / 

/ 955 / 


I 

1 OP 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 953 / 

/ FROM THE LIST / 


I 

I 

I NOTE 09 

*********** 

* LIST » * 

* ITQ2I J2 I tWCl ( J21 , * 

* TR0011J2I » • 

* TX02IJ2 I »PT2IJ2I . ♦ 

* WTT2! J2) t J2 = * 

* l.NDI * 


I 

I 

I 10 


I NT * 1 

I 

I LA * 2 

*•»• 

l 

I 

I 

• 3.10. 

... 8 ? 


LIST = Tl, T21. • 

TEWT, TWT, TPW, * 
TAOS, TAOC * 

* * ******** 

I 

I 

1 21 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 909 / 

/ FROM THE LIST / 


I I 

I I 

I I NOTE 22 

♦ *********** 

* LIST * PDPO * WC. * 

* WBC. W80. WUT, * 

* ARAD, WFXP * 
*********** 

1 

I 

I 23 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 9U / 

/ FROM THE LIST / 


I 

I 

I NOTE 24 
*********** 

* LIST = WUO, WUC, * 

* TOPTf TA0E1, * 

* T A0B2 » TEB 1 . * 

* T EB2 . TA0E2 * 
*********** 

1 

I 

I 

I / 


/ 1 9 . 0 1 


I II I 

I I 

I T 2 1 = T X02 ( NO - I 
I 1 I I 

I I 

I TA1C = TP A ( NO - I 
I II 1 

*- * 

I 

I 
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PPOC EOURES 


18.29 1 * 

I 01 

/ / 
/ WRITE TO DEV / 

/ 6 / 

/ VIA FORMAT / 

/ 905 / 


I 

I 02 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 906 / 

/ FROM THE LIST / 


I 

I NOTE 0) 


* LIST « WTL t WT2 * * 

* k>T3« WT6, WT5, ♦ 

* WT6, WT7, WT8, * 

* WT9, WTlOt WTCH • * 

* WTll, WT 1 2 » WTU * 

I 

I 

1 09 


/ / 
/ WRITE TO DEV / 

/ 6 / 

/ VIA FORMAT / 

/ 912 / 


I 

I 05 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 906 / 

/ FROM THE LIST / 


I 

I NOTE 06 
• *•****••* 

LIST - WFHX1, ♦ 
WE F l » WEHX2. * 
WFF2 » WT 20 * WT22, * 
WSU0, WH VO , WT25, • 
WT 2 1 * 


l 


I 07 


/ / 
/ WRITE TO DEV / 

/ 6 / 

/ VIA FORMAT / 

/ 907 / 


I 

I 

I 08 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 906 / 

/ FROM THE LIST / 


I 

I 

l ' NOTE 09 

********** 

i ist = pwii n . * 

PWI 1 2» . PW< 91 I • 

PW(6). PWI 9 1 • * 

PUI10), PH( 1 7 1 f * 

PWI 191 * 

I 

I 


I • 

I 10 


VI - Vl/60. I 

VC * V9/60. I 

V2 • V 12/ 60. I 

VV » V 10/60. I 

VFC • Vll/60. I 


I 11 


VCH » VCH/60. I 

VT = V12/60. I 

VE1 = VI 7 I 

VE2 = V19 I 


I 

I 

I 12 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 90S / 


/ FROM THE LIST / 


I 

I NOTE 13 
**•*****••• 

* LIST « VI, VC, * 

* V2, VV, VCH, VFC, * 

* VT, VEl, VE2 * 

* * • ******** 

I 

I 

l 19 

• — * 

I VI 7 - VI 7*60. I 


I I 

! V 19 « V19*60. I 


I 

! 

I 15 


/ / 
/ WRITE .TO OEV / 

/ 6 / 

/ VIA FORMAT / 

/ 937 / 


I 

I 

I 16 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 906 / 

/ FROM THE LIST / 


I 

l 

I NOTE 17 
«**••**•*** 

• LIST » T21 , T22, • 

• T23, T29, T29PP, * 

• T29P, T 25 , T 26 ♦ 

*********** 

I 

I 

I 18 


1* 

I 19 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 9f)6 / 

/ FROM THF LIST / 


I 

I 

I NOTE 20 

********** 

LIST = Tl, T2, ♦ 

T2P , T 3 , T9, TRI, * 
TEXPI, TRO, T 1 A * 


I 

I 

I 21 


/ / 
/ WRITE TO OEV / 

/ 6 / 

/ VIA FORMAT / 

/ 975 / 


I 

I 

I 22 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 970 / 

/ FROM THE LIST / 


I 

I 

I NOTE 23 
*********** 

* LIST * Q1 , Q2, * 

* 05, Q6, 07, Q8, * 

♦ OLAT, QS9, OL 9, • 

• QSH, QLH, QF * 


I 

1 

I 29 


/ / 
/ WRITE TO OEV / 

/ 6 / 

/ VIA FORMAT / 

/ 938 / 


I 

I 

I 25 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 970 / 

/ FROM THE LIST / 


/ / 
/ WRITE TO OEV / 

/ 6 / 

/ VIA FORMAT 
/ 936 

I 
I 


I 

I 

I NOTE 26 


/ I 

• 

* * • 

• * * * 

• • 

/ I 

* 

LIST * 

OETt, 

• 

I 

1 

• 

* 

0ET2, 

* * * 

0SU6 

* * * * 
1 

• 

• * 




I 

27 


I 

T? 

* Tl 



I 

1 


... 800 
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PROCEDURES 


OFF DESIGN 
PERFORMANCE-PRINT 

POWERS 

02.10 >* 

801 I 01 


/ WRITE TD DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 988 / 

/ FROM THE LIST / 


I 

I 

I NOTE 02 

*********** 

• LIST « IXIJI.J - * 

* 191,2051 * 

I 

I 

I 03 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 981 / 

/ FROM THE LIST / 


I 

I 

I NOTE 04 
*********** 

* LIST = (XIJ),J ■ * 

* 204,220 1 * 

*********** 

1 

I 

PRINT COMPONENT 
FACTORS 

I 

I 

I 05 


I * 

I 10 


KEVC = FW5 I 

OSH o 0. I 

QLH « 0. I 

1*0 I 

WCPC * WC*CPR I 


I 

I 

I 11 


* — -- — * 

I WHC » WCPC*WRAT I 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 976 / 

/ FROM THE LIST / 


I 

l 

I NOTE 06 
* ********** 

♦ LIST = IXIJ1.J » * 

* 221,2501 * 

*********** 

I 

I 

I 

COMPONENT FLOW RATES 
I 
I 

I 07 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 977 / 

/ FROM THE LIST / 



I 

I 

I 

NOTE 

08 

* LIST 

* vt 

1, V 1 2 , 

* 

* V 1 7 , 

* * * i 

V 19, 

► * • 
I 

V10, V9 

* * * • 

* 

• 

I 

I 

SFT VAR I ABL 

ES 





LA = 2 

TRO » TZ ♦ 459.6 
Ti » TZ 


I 

I 

LOOP ON CABIN TEMP 
I 
I 

I NOTE 12 
*********** 

* BEGIN DO LOOP * 

* 6123 NA * 1, 15 * 

*********** 


28.12 » I 


GET 

L I OH HEAT LOADS 
I 


I 

I 

13 

I 

I 

COMPUTED GO 
FOR M! 

TO 1 

I 

I 

655 21 

.01 I 


I 656 20.14 I 

* * 


IF OUTSIDE THE 
1 

RANGE 

1 

HSC -NO LATENT 

LOADS 

20.13 II 


666 I 

14 

I OCABL = 0, 

. I 

I QS9 = 0. 

l 


I 

I 

r 


65 
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CHART TITLE - PROCEDURES 


CABIN LATENT LOAD 


20.13 — )♦ 

655 I 01 

* — * 

13 I H 

19 I LI OH H 

I. I I 9, DA Y f DP9» H 

10 I WBC,WT9,PW9. H 

11 I V9,Q$9,QL9I H 


* 

l 




I 

I 

02 







I QCABl = 

0L9 ♦ I 



I QLM ♦ 

QLM I 



*•>-.- 




I 




I 

I 

I 

09 

I 

I 

• — - — 

--* 

TOTAL HEAT 

1 

I T 6 « TRO ♦ 

! 

LOADS-CABIN 

SENS 1 

I QTOT/WCPC 

1 

I 

I 

— 

--* 

20. 1 4 1 I 

I 

I 


657 I 

03 I 

I 





I 


I 3CA8S a 

GSM ♦ 1 I 

GO TO DESIRED HEAT 


I OSE ♦ QS9 

♦ OSH ♦ I I 

REJECTION METHOD 


l 3 .414*1 PWI 1 1 1 ♦ I I 

I 


I Pwl 12) ♦ 

PWI 101 ♦ I I 

l 


I PWI 31) I I 

I 

10 


l 

* 1 

l 

*- 

I 

COMPUTED 

GO TO 

* 

I 

I 

I 

I 

FOR 

NR 

I 

I 

I 

*- 



* 

INTERFACE HX LOAD 

I 

I 

620 

21.11 

I 

1 

l 

1 

62 0 

21.11 

I 

I 

I 

I 

62 0 

21.11 

1 

I 

04 ! 

I 

621 

22.07 

1 



I 

62 2 

23.01 

I 

I 35 = JCABS ♦ 

I I 


62 3 

23.06 

I 

1 3CA9L ♦ QE1 ♦ 
I Q3P1 ♦ QCH1L ♦ 
I 3.414*(PW(4> * 
1 Pwl 17)1 

I I 

I I 

I I 

1 ! 

*- 

I 

I 

I 


* 


RAO CAN NOT DO TOTAL 
Q -GO TO SECONDARY 
HEAT SINK 


21.14— >* 

626 1 18 


I 

I 


I 

I 

I 


T 7 = T 7 - 

459.6 

I 

I 1' 

COMPUTED 

GO TO 

FOR ! 

NR 

627 

21.20 

628 

23.02 

629 

23.07 


I 

I 

I 

IF. OUTSIOE THE RANGE 
I 
I 
I 

SUBLIMATOR HEAT SINK 


-SET TEMPS 

I 

21. 19— - I I 

627 I 20 


* * 

I EFF = 1. - I 
I 1./EXPICFTC 241 I 
I /WCPCJ I 


I 

I 

l 

OUTLET TEMP 
1 
I 

I 21 


| T8 * T7 - I 


* * 

I 

I 

TOTAt POWER 
I 
I 

I 05 

* • 

I PWT » PWI 111 ♦ I 

I PWU2I ♦ PW<3> ♦ I 

I Pw(4) ♦ PW ( 6 ) ♦ I 

I PWI 10) ♦ PWI 1 7) ♦ I 

[ PWI 191 I 


I 

I 

I 

FUFl CEIL HEAT LO AD 

I 

I 

I 06 

• * 

| >}F T * QFC ♦ 1 

I F W? *PWT 1 

* 

I 

I 

1 

TOTAL HEAT REJECTED 
I 
I 

I 07 

* * 

I QTUT = Q5 ♦ I 

I OCP? ♦ OF? ♦ I 

I OFT ♦ I 

l 3, M A*I PWI 6 ) ♦ I 

I PWU91) I 


I 

I 

I 

HFAT SINK INICT TEMP 

I 

I 


IF OUTSIDE THE RANGE 
I 
I 
I 

RADIATOR LOOP 
I 

21.10*— >1 

620 l NOTE 11 
*********** 

* BEGIN 00 LOOP * 

* 650 N « 1, 30 * 


22.04— -II 

I 


12 I RAO 

I. I I T6* TRO* WCPC * 
10 I WR, ARAD, WE, T7, 


DIO RAD DO TOTAL 

I 


ABSITRO - 
T 7) - .5 


I EFF *1 T 7 - 32.1 I 

* — * 

I 

1 

I 

TOTAL HEAT REJECTED 
I 
I 

1 22 

* • 

I QR * WCPC* ( T6 - I 

I T 8 ) I 

* * 

I 

I 

I 

IS Q WITHIN TOL 
I 
I 
1 

* 23 

* * 


I-/OI * ABSIQR - * 

* QTOTI - 

* .5 * WCPC * 


RAD DIO TOTAL JOB I * 

-SET TEMPS I * * 


1 * 

625 I 

I 

15 I 

I I* I 
1 

T7 - T7 - 459. 

6 I I 

I 

T 8 = T7 

I I 

I 

1 

I 

... 

630 I 


.22.01. 

T9 * T 8 

I 

... 631 

T 1 = T9 

I 



I 

I 

I 

GO TO I NT HX 
I 
l 

I 17 


626 
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NOT CONVERGED -IS QR 
TOO HIGH 


21. 23-— I* 
I 

6?.l * 


01 


(01 * * i-» 

♦ -* QR - QTOT *- 

I * * I 

I * * I 

I , * * I 

• • • . * ♦ 

. 21 . I (♦! 

. 1ft . I 

630 I 

I 
I 
I 


QR TOO HIGH 


22.01— I * 

633 I 03 

*--> — * 

I T6 a T6 ♦ 459.1 I 

* * 

I 

I 


QR TOO LOU 

)* 

632 I 02 

* * 

I T6 = T6 ♦ 462.6 I 

* * 

1 

I 


-I I 
I 


* NO 

END OF DO *-♦ 
LOOP * I 
* * I 

* * I 


I YE S . 21 . 

I . 12 . 

I 

I 

I 

I 

SUBLINATOR LOOP NOT 
CONVERGED 

I 


SUBLIMATOR ONLY 


21 . 10 — 1 * 

621 I 07 


I EFF = 1. - I 
1 1 • / EXP ( CFT ( 8 1 I 
I /WCPCJ I 


I 

I 

I 

INLET COOLANT TEMP 
l 
I 

I 08 

* • 

I T7 = 32. ♦ I 
I QTOT/WCPC/EFF I 
I I 

I T 6 = T 7 1 

I I 

I T8 « T7 - I 

I QTOT/ WC PC I 

I I 

I T9 = T8 I 

t I 

I T 1 = T9 I 


I 

I 

I 


.24,02. 
... 651 


I 05 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 98 9 / 

/ FROM THE LIST / 


I 

I 

I NOTE 06 
*********** 

* LIST = QTOT, QR, * 

* T6 , T 7, T8 * 

*********** 

I 

I 


. 2 . 01 . 


800 
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PROCEDURES 


CRYOGENIC HX -SET 
TEMPS 


FLASH EVAP -SET 
TEMPS 


21.10 1 * 

622 I 01 

• — — — — — * 

I T6 « T6 - 459.6 I 
I I 

I T7 » T6 I 


I 

I 

I 

HEAT REJECTION 
I 

21.19 » ! 


628 I 02 


I 02? » WC PC* ITT - I 
l Til I 

• 


I 

l 

I 03 


I 7 I H 

16 I CRY H 

I . I (022.WCPC.T7, H 
10 I 221 H 

III H 


21.10— -I* 

623 I 06 


I T6 - T6 - 459.6 I 
I I 

I T7 » T6 l 

*- 

I 

I 


HEAT REJECTION 
I 

21. 19 1 l 

629 I 07 


I 025 a WCPC*IT7 - I 
I Til I 
*- — — — — • 


I 

I 

I 08 


• 

17 I H 

II I FEVAP H 

I. I I 025 » WC PC »T 7» H 

10 I 25 i T8 . WT25 J H 

III H 

*- — — * 


I 

I 

I 04 

* * 

I T9 a T 1 I 

— -* 
I 
! 

I 

TO TO INT HX 
I 
I 

I 05 

I T8 “ T7 I 


CAN FLASH EVAP DO JOB 


* . • I-/OI 

* T 1 - T 0 * 

♦ • I 

♦ * I CAN MEET TEMP 

* * I 


I 

I 

I 


.24.02. 
... 651 



♦ ) • 

634 I 10 

* — * 

I T 8 * T 1 I 

I I 

I T9 = Tl I 


l 

I 

I 


651 



10/12/72 
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AUTOFLOW CHART SET - H247B 


CHART TITLE - PROCEDURES 


UNIT CAN NOT MEET Q IS THERE A SENS HX 

-UP TEMPS 


23.0*? ) * 

635 I 


t T 7 = T8 ♦ 

I Q22/WCPC 

l T 6 * T7 

I T9 * T0 

I Tl * T8 

* — - * 

I 

I 

I 

INTER HX 

I 

21.17* — | I 


651 I 02 


17 I H 

19 I HX H 

I. I ( 05 (WHC i WCPC • H 

10 l Tl,5tT2il H 

11 I H 



24.06 1* 

I 

660 * 


I m 

i 

i 

i 

i 

i 

i 


640 I 12 

* * 

I KY = 0 1 

* — — • 

I 

I 

I 


.25.01. 
... 641 


.26.02. 

. . . 642 


I 

I 

I 

CHILLER OUTLET 
I 
l 
i 


TEMP 

03 


I T 22 = T?1 ♦ I 
I QCHIL/WHC I 


I 

I 

I 

COND AIR FLOW RAT E 
I 
I 


I 

1 

I 

LOOP ON CABIN TEMP 
I 
I 

I NOTE 05 

*.***.»*«** 

* BEGIN 1)0 LOUP * 

* 612 Nl = 1, 15 * 

*♦*•»**(,,*, 


I 

28.06 | I 

! 06 


COMPUTED 

GO 

TO 

FOR 

Ml 


6 4 0 

24 

. 11 

66 1 

2 4 

. 07 


1 

I 

I 

If D'JTS IDE THE RANGE 
I 
I 
I 

HSC-NCJ CONDENSER 


I 

24.06 | I 

661 1 07 



I 


* 

M 


I 

KANOK 

H 


1 

( PV 1 , T22 » 

H 


1 

459.6,2) 

H 


I 


H 

*- 

-- - 




I * 

I 09 


15 


H 

18 

HSC 

H 

I . 

I WC02 » QLM. DAY , 

H 

10 

RHO.PV I , OP 1 . 

H 

I 1 

14.WT1 , PW( 11 ) , 

H 

I 

VI , WBD.WUD, 

H 

I 

* 

VCH.WTl 1 ) 

H 


I 

I 

I 10 

* 

T?3 = 122 I 

I 

QCDS * 0. I 


QS9 = 0, 
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10/12/72 


AUTO FLOW CHART SET_ - H2470 


CHART TITLE - PROCEDURES 


YES 


24.11 > * 

641 I 


01 


1 KY - 1 1 

— • 

I 

I 

I 

CQND P6RF 

1 

24.12 — 1 1 

642 l ' 02 


IB I 


H 

16 I 

CX2 

H 

I . I 

(WHC ,T22, 

H 

10 I 

GCABS *QC ABL , 

H 

11 1 

TCAB.OSH.QLH, 

H 

l 1 

Vl.PWI 11 ) tl . 

H 

I 1 

: KY»T23t VI 1 . 1 . 

H 

I 1 

0CDS1 

H 


I 

I 

I 

IS SUBROUT INE 
CONVERGED 

1 

I 

I 

* 03 


* <-/0> 

, 


* 1 

• 1 COND CONVERGED -IS 

* ( THERE A SENS HX 

* I 

I ( ♦ ) »* 

I I 

I 604 * 04 

I * * 

I • * 


I 

I 


! 2*> » 01 . 
... 605 


.26.04. 
... 606 


NO SENS HX 


5 #04*-- 1 * 
607 I 


05 
-- * 
l 


I 

I 

1 

IS THERE H?0 COOLED 
AVIONICS BAY 

28.17 > I 

I 

61 3 * 06 


6151 * 07 

* * 

* * 

* • 1-/0) 

* OE 92 *-♦ 

* ♦ I 

* * I 

* • I 

* . . . . 

I 1*1 • 30 . 

I . 01 . 


NO PAY -SET TEMPS 

I « 

614 I 08 

• 

I T 25 =» T 2 4 I 

I I 

I TA0E1 =0. I 

I I 

I TEIC = TE1 I 

* * 

I 

I 


615 


615 ? 
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PROCEDURES 


CHX2 NOT CONVERGED 


25.03 1 * 

605 I 01 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 961 / 

/ FROM THE LIST / 


YES -SET UP FOR SENS 
HX 


24 . 10 *—)* 

606 I 04 


I WHOT = I 
I V12*PCAB*144./RA/ I 
I tTCAB ♦ I 
I 459. 6 ) *CPA I 


I 

I 

I NOTE 02 
*********** 

* LIST = WHO, T 22 » * 

* QCA8S, QCABL* * 

* TCAB t QSH, QLH, * 

* VI, PWtll) * 
*********** 

I 

I 

I 


NEXT CASE 


I 

l 

MAX AIR FLOW 
I 
I 


I 

HX INLET AIR TEMP 
I 
I 

I 06 

♦ — — ♦ 

I TAl * TCAB ♦ l 

I PWI 121*3. 414/WMX I 

* * 

I 

I 

I 

HX HEAT LOAD 
I 


I Q? * QCABS - OCOS 


* 08 


• • 


02 



* 1 -/ 0 ) 

*-----♦ 

* | 

I REHEATER REQUIRED 

I 

♦ >♦ 

637 I 


09 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 980 / 

/ FROM THE LIST / 


.27.01. 
... 638 


I 

I 

I NOTE 10 
*********** 

♦ LIST = Q2 * TCAB, * 

* V 1 2 . T23 ♦ 

**»**•***•« 

1 

I 

I 


607 
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AUTOFLOW CHART SET.-_H247B 


SP 01T72 
PAGE 27 


PROC EOURES 


ENTER LOOP TO FIND HX 
FLOW RATE 


26.08 1* 

638 I 01 

* * 

I TAOR = T A I - I 

| Q2/WH0T I 

« — ■ — * 

I 

1 

I NOTE 02 

• ••****«**• 

* BEGIN DO LOOP * 

♦ 608 N * 1. 10 * 

I 

27.10 1 I 

I 03 

• — * 

17 I H 

19 I HX H 

I. I I 02 • WHO T *WHC * H 

10 I T23.2.TA0I H 

III H 

♦ — * 

I 

I 

I 

I S TAO WITHIN 
TOLERANCE 

I 

1 

* 04 

• * 

* * 

* * 1-/01 
* ABSI TAO - 

•TAOR) - .3 • I 

* * I 

♦ * I 

♦ .... 

I ( ♦! • 28 . 

I . 15 . 

I .... 


DECREASE flow RATE 


27.05 »♦ 

6082 I 08 

* * 

I WHOT * Q2/ITAI - I 

I TAOI I 

* * 

I 

) i 

608 I 09 


I TAOR' = TAO I 


I 

I 

I 

* 10 


* * NO 

* END OF DO *-♦ 

* LOOP • I 

* * I 

• * I 

• .... 

1YFS . 27 . 

I . 03 . 

I 

I 

I 

I 

LOOP NOT 
CONVERGE D-PR INT 
I 
I 

I 11 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FOP HAT / 

/ 963 / 

/ FROM THE LIST / 


t 


NCT CONVERGED SHOULD 
FLOW BE DECREASED 


RAISE CABIN TEMP 
FLOW RATE AT MAX 


( 01 * 

♦ -* TAOR - TAO 
l * 

l • * 

I * * 


. ?P 
. 1 5 


m 


-i* 

i 


* WMX - WHOT 
* • 1 


1 I ♦ I 
I 
! 

I 

I 

1 

I 


I -/01 

I 

I 

I 

• 28 • 

. 01 • 


WHOT • 1 . 0 l l 


I 

I NOTE 12 

*****••••** 

* LIST = T A I » TAO. * 

• WHOT. WMX » 02 * 

I 

I 


.28.15. 
... 609 


l 
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PROCEDURES 


6121 RAISE CABIN TEMP 
£ CHANGE METABOLIC 
LOADS 


27.06 1 * 

6121 I 01 


* — — * 

I 9 I H 

1 4 1 QMET H 

l . I (QSM, TCAB, H 

I 0 I TCAB ♦ H 

II I l « • OS N t K A I H 

« ---- - * 


I 

I 

I 02 

* — # 


I TCAB * TCAB ♦ l. I 


I 

I 

I 

WHAT IS C02 REMOVAL 
SYSTEM 

I 

I 

! 03 


COMPUTED 

GO TO 

FOR 

Ml 

6122 

28.04 

6124 

28.10 


I 

I 

I 

I F OUTSIDE THE RANGE 
I 
! 

I 

L IOH-CONOENSER ♦SENS 
HX 

I 

28.03- — I I 

6122 I 04 


HSC SUBROUTINE 


28.03 ) * 


6124 

I 

10 

QLM = 

QLM - 

QSN ♦ I 


QSM 

I 

6123 

I 

I 

I 

II 


I QSM = QSN l 


I 

I 

I 

* 12 


* * NO 

* END OF DO *-♦ 

♦ LOOP * I 

* * I 

* * I 

* • •• . 
IYES . 20 . 

I . 13 . 

I .... 

I 

I 

I 

I 

LOOP ON CABIN 
TEMP-NOT CONVERGED 
I 
I 

I 13 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 9621 / 

/ FROM THE LIST / 


I 


QCABS = QCABS ♦ 
QSN - QSM 

CCABl = QCABL ♦ 
QSM - QSN 

Ql M = QLM ♦ QSM - 
QSN 


I 

I 

612 I 05 

• - * 


I QSM = QSN 


I 

I 

I 

* 06 

* * 

* * 

* * 

♦ END OF DO 
♦ LOOP ♦ 

* * 

* * 

* 

IYFS 

I 

I 

I 

1 

I 

I 

CABIN TFMP NOT 
C f'NVERGFO 

I 

I 


NO 


l 

I 

I 


24 . 
06 . 


I 

I NOTE 14 
* * * * ******* 

* LIST = QSM, QLM, * 

* TCAB, QCABS * 

I 

I 

l 

CONTINUE 

♦ 27.04*--) l 



I 


609 

I 

15 


I 

* 



-* 


I 

I 

T24 = T23 ♦ 

I 


I 

I 


Q2/WHC 

I 


I 

I 


VHX = 

I 


I 

I 

WHDT/CPA/PCA6/ 

I 


I 

1 

144. 

*R A* ( T CAB ♦ 

1 



I 


459.61 

I 


I 

I 

*- 


I 

-* 


I 

I 

I 

SENS MX 

I 

PRINT 

I 



I 

I 



I 

1 

16 

)• 

I 


/ WRITE TO OEV 

/ 

I 

08 I 


/ 

6 

/ 

— 

-- I 


/ VIA FORMAT / 


/ WRITE TO DEV 

/ 1 

/ 


972 / 


/ 6 

/ I 

/ 

FROM 

THE l 1ST / 


/ VIA FORMAT / 

I 

-- 




/ 962 / 

I 



| 


/ FROM THE LIST / 

I 



I 



I 



I NOT F 

17 

I 

I 

* 

* * * 

****** 

* 

I 

I 

* 

LIST 

= Q2, VHX, 

* 

I NOTE 

09 I 

* 

T A 1 , 

TAO, TCAB, 

* 


* I 

* 


OSM 

* 

♦ LIST * TCAB, 

* I 

* 

* * * 

****** 

* 

* WHOT, Q 2 , QCOS, 

* I 



I 


* T 2 2 » T 2 3 , QSM, 

* I 



I 


* QLM 

* 1 

* I 





I 

l 

I 

I 



.25.06. 



613 
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AUTOFLOW CHART SET - H247B 


SP 01T72 

PAGE 29 


PROCEDURES 


OOUBLE EBAY 


25,07 I* 

6152 I 01 






OEEI » QE 1 - 

I 


QEB2 ♦ 

I 


PW( 171*1,707 

I 


QEE2 » QE82 ♦ 

I 


PWl 1 71*1# 707 

I 


R HOE l • 

I 


PCA8*144./RA/ 

I 


( TE1 ♦ 459.61 

I 

I 

I 

I 02 

I 

wei » 

I 

I 

V17*RH0E1*CPA 

I 


I 

I 

I 

flRST BAY 

1 


I 03 


*- — * 

17 I H 
19 I HX H 
I. I (QEEl.WEl ,WHC, H 
10 I T24,16,TA0E1 I H 
III H 
• — - — * 


I 

I 04 


I TEEl » TA0E1 ♦ 
I QFEl/WEl 

I 

I T25A - T24 ♦ 

I QEE1/WMC 


I 

I 

I 05 


/ WRITE TO OEV / 
'/ 6 / 

/ VIA FORMAT / 

/ 9641 / 

/ FROM THE LIST / 


I 

I 

I NOTE 06 


* LIST » OEEI, WEI* * 

• TEEl, TA0E1, T25A * 


I 

I 

1 


SECOND BAY 

l 

I 



I 

07 


17 

1 

H 


19 

I HX 

H 


! , 

I IQEE2,WE1 ,WHC 

H 


10 

1 T25A.16.TAE2) 

H 


11 

1 

H 



I 

I 

l 

OR 


! 

TEE2 » TAE2 ♦ 

1 


I 

0FF2/WE1 

1 

-- • 



I 

I 

I 


COOLANT OUTLET TEMP 
I 
I 


>* 

I 10 


1 T25 » T25 A ♦ I 

I QEE2/WHC I 


I 

I 

I 11 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 9641 / 


/ FROM THE LIST / 


I 

I 

I NOTE 12 


* LIST = 0EE2, WEI, * 

* TEE?, TAE2, T25 * 


616 
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CHART TITLE - PROCEDURES 


AVION RAT -HEAT LOAD 

25.07 1 * 

615 I 01 


1 016 = QE1 * ! 

I Pw( 171*3.414 I 


I 

I 

t 

MINIMUM AIR DENSI TV 


I 

I 

I G2 


RH3EI * I 
PCAB*1 44. /RA/ ! 
f T f l ♦ 459.6) I 


I 

I 

I 

MIN FLOW RATE 
I 
I 


I 03 


I WEI = I 

! VI 7*RH0£1*CPA I 


I 

I 

1 04 


17 I H 

19 I MX H 

I . I I 016, WEI , WHC , H 
10 I T ?4 V 1 6 , TE 1 0 ) H 
III H 


I 

I 

I 

EBAY TFMP 

I 


BAY- HEAT LOAD HX 

30.12--)* 

61ft I 14 

* --- - - - * 

I Q 1 ft = Qt2 + I 
l PW(19)*3.414 1 


I 

I 

MIN AIR DENSITY 
I 
l 

I 15 


I RH0E2 = I 
l PCABM44./RA/ I 
I (TE2 ♦ 459.61 I 


I 

I 

I 

MIN AIR MASS FLOW 

I 

I 


I 16 


I WHX = I 

I V19*RH0E2*CPA | 


I 

I 

I 17 


* 

17 1 rt 

19 I HX H 

! • I I 018, WHX.WCPC. H 

10 I T2, 18.TE23I n 

III H 

* 


I 

I 

I 

AIR TEMP 

l 


T*1 1 * TFin 

QEl/wEl 


/ WB|TF n OF v / 

/ 6 / 

/ VIA FORMAT / 

/ 964 / 

/ f J1 1 T HF | I S T / 

1 

1 

I NUTT OR 

******** * * * 

* t 1 st - 'ji6* wri, * 

* T P ! I , T El o * 

*********** 

I 

I 

I 

PUMP OUT Lf T TEMP 
COLT PI ATE OUTLET 
TEMP 

1 

l 


I 1 l 

* 

T 1 ♦ G5/WCPC I 


AVIONICS 

LOOP 


I 

I 

I 

BAY 

I 

I 

I 


NO BAY-SET TEMPS 


617 I 

T3 = T? 

1 

I 

I 


I TE?B * TE20 ♦ I 
I QE2/WHX I 


I 

I ♦-- 

I I 

25.00*-- )* 

616 I 

10 

* 

I 

I 

l 

- - - * 

rutJLAM OUTLFI tfmp I 

I I 

I I 

* — -- 

I T26 = T 25 * 

I QC P 1 /WHC 

-* 

I 

I 

COOLANT TFMP 
I 
1 


1 06 I 

I 

I T27 = T 26 * 

I PW (4) *3.414/WHC 

I 


I 

19 

I = T?4 ♦ I | 

I 

1 

T? = T2 * 

I 

I 316/WHr. I I 

* — - - - - 

-* 

I 

Q18/WCPC 

I 

1 1 

I I 

I I 

PRINT OUTPUT I 

I 

I 

RAD LOOP -INTER HX 
OUTLET TEMP 


PRINT 

I 

I 

I 

DATA 



/ WRITE T 3 UEV 
/ 6 
/ VIA FORMAT / 
/ 965 / 

/ FROM THF LIST / 


LIST * g 
T£?R, 


COLD PLATE 


ft* WHX, 
TE20 


61ft 


ol 9 
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CHART TITLE - PROCEDURES 


30.13* — I* 

619 I 01 I 


I TA = T3 ♦ I 

1 0CP2/WCPC I 

* — ----- <■ 

I 


I 

F/C HXS 

I 

I 

t 02 


- — * 

17 I H 

19 I HX H 

I. I <QFT,WFC,WCPC. H 

10 I T4,?0,TFCt» H 

III H 


I 

I 

I 

F/C I M ET TEMP 
I 
i 

I 03 

* -- * 

I TFCD ■ TFCI * I 

I OFT/WfC I 


1 • 

I 09 


/ WP1TE TO DEV / 
/ * / 

/ VIA FORMAT / 

/ 906 / 

/ FROM THE LIST / 


I 

I 

l NOTE 10 
*********** 

* LIST * T21, T22* * 

* T23, T2A, T25, * 

* T2 6 ♦ T27 * 

*********** 

I 

I 

I 

PRINT RADIATOR LOOP 
TEMPS 

I 

I 


I 11 


/ / 
/ WRITE TO DEV / 

/ 6 / 

/ VIA FORMAT / 

/ 968 / 


I 

I 

I 

POINT F/C TEMPS 
I 
I 

1 OA 


/ *o!Tt TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 966 / 

/ FROM TMF l 1ST / 


I 

1 

I NOTE 0 ? 


I 

I 

I 12 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 906 / 

/ FROM THE LIST / 


I 

I 

I NOTE 13 

*********** 

* LIST *= T6C ♦ 16, * 

* T7 , T8, T9, Tl, * 


RADIATOR/ EVAPORATOR 
EXPENDABLE USAGE -SET 
VAR I ABLES 

02.10 1 * 

805 I 19 

* — ■ * 

I DTHEA = 360. /STEP 1 

I l 

I Tl = T2 I 

I I 

I WCPC * WC*CPR 1 


TAUS = TAU/STEP 



I 

I 

I 20 


WA * 0. 
NS ■ STEP 
LA * l 


I 

I 

I 

TOTAl POWER HEAT LOAD 
I 
1 

I 21 

*- * 

I QPW = IP Will! ♦ I 
I PW ( 1 2 ) ♦ PHI 17) ♦ I 
1 PWU 9) ♦ PW( 1 ♦ I 
I PWt 6 ) ♦ PW’I 10) ♦ I 
I Pw(3M*3.Al4 I 


1 

I 

I 

TOTAL HEAT LOAD 
l 


* 

««**»**« 

* * I 

* T 2 , T 3 , T A, T 5 * 

I 


* 

LIST = OFT, WFC 

* I 

*********** 


2 

* 

TFCI, tf:o 

* I 

1 

I COMPUTED 

GO TO 


I 

I 

I 

I FOR 

Ml 


l 

l 

06 I 

CALCULATE HEAT LOADS 

1 805 1 

31.23 

• 


I 

I 8052 

32.01 


T5 = T* ♦ 
"f T/WCPf. 


I T6C * T5 ♦ ! 

I Prf<6l*3.M*/WCPC I 


PRINT WATFR LOOP 
TEMPS 


I 08 

/ / 
/ /RITE If! DEV / 

/ 6 / 

/ VIA FORMAT / 

/ °67 / 

I 


0 1 = WHC*IT?3 - 

T 2 1 1 

r PW(4|*3.414 
06 * PW(6)*3.M4 

07 = WCPC * I T6 “ 

T 7 1 

I 

I 

I 

08 = WC PC * I T 7 - 

T 8 I 

022 « WCPC* I T 8 - 
T 9 1 

02 « WHC*(T?4 - 

T 23 1 

QITOT = OCAHl ♦ 
GLH 

I 

I 

I 

PRINT HEAT LOADS 
I 
I 


>* 

I 1 7 

/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 971 / 

/ FROM THE LIST / 

I 

I 

I NOTF 18 
*********** 

* LIST * QI, 02, * 

* Q4, 05, 06, 07, * 

* 08, 022, QL TOT * 

e********** 

I 

I 

I 


IF OUTSIDE 


L 1 OH -A DD l AT TNT LOADS 


31.2 2— » 
8051 1 


THE RANGE 


13 I 
18 I 

I . I 
10 I 

II I 


L I OH 

19,7. , 0. , WBC , 
WT9, PW9, V<>, 
QS9.QLOJ 



8 00 
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CHART TITLE - PROCEDURES 


HSC- NO LATENT LOADS 

31.22 ) * 

8352 I 01 


t QLT = 0. I 


I 

31.24 If 

835? I 02 


I 3I0T = QPtf ♦ 

I QSE ♦ QSH «• QSP ♦ 
I OSH ♦ OF 1 ♦ QE2 ♦ 
l QCP1 ♦ QCP2 ♦ 

I QCHIL ♦ QFC * QLT 
I 

I DT * QTOT/WCPC 


I 

I 

I 

ENTER LOOP TO GO 
AROJNO ORBIT 
I 
I 

I NOTE 03 
*********** 

* BEGIN DC LOOP * 

* 010 N = l» NS * 

********«:** 


I 

33.1 0 1 I 

I 04 


I T 1 0 x T I I 


I 

I 

I 05 


H 

UNRAP H 

( S, l , A , 0. ,F< , H 
l (Nil H 

H 


RADIATOR CAN NOT DO 
JOB -CHANGE TEMP 

)* 

811 I 13 

* — — * 

I TR = TOR - 459.6 I 

* * 

I 

I 

I 

EVAPORATOR HEAT LOAD 
I 
I 

I 14 


FLASH EVAPORATOR 


I QE * WCPCMTR - I 
I T10) I 

* * 

I 

I 

I 

GO TO SUPPLIMENTRY 
HEAT SINK 

I 

I 

I 15 


COHPUTEO 

GO 

TO 

FOR 

NR 


813 

32 

.20 

812 

32 

.16 

814 

32 

.18 


IF OUTSIDE 


CRYOGENIC HX 


32.15—1 

812 


32.15 — 
814 


I 


17 I 

II I FFVAP 

I. I ioe.wcpc.tr, 

10 l 2 5 » Tf 0 1 N ) i wT | 
I 1 I 


I WEVIN) x QE/ 965. 


SUBLJMATOR HEAT SINK 
2D 


32. 15 ) * 

813 I 


EFF = 1. - 
1. /EXP (C FT 124) 
/WCPC ) 

TR2 = TR - 


I 

l 

I 

SIN< TEMO 

I 

I 


I 

06 


1* 





I NOTE 10 

I TS = 

I I 

* * 

***«*« 

* * * 

I ( C </IEMIS*. 17)46 

I I 

* 

BEGIN DO LOOP * 

I »))*♦. 25 

I 1 

* 

815 NN = 1, 

10 * 

I 

I I 

* * 

****** 

* * * 

I TPR(N) = TS 

I 1 


I 




33 

.03 1 I 


I 

I 

RAC 

PERFORMANCE 


INIC-T RAD TEMP 

I 


I 


I 

1 


I 

11 

I 

I 




I 

07 I 

IB 


H 



12 

RAD 

H 

1 TR A 1 N ) = T 1 ♦ D T 

I I 

I. 

(TI, TO, WCPC, H 


- * ! 

10 

WT7.AP.WEXP, H 

I 

I 

12 

TOR ,7 ) 

H 

I 

I 

* — 



TE U P “Allis 

I 


I 


I 

1 

DID 

RADIATOR DO 

TOTAL 

l 

<>p 1 

JOB 




- 4 I 


I 


I T | = TftACN 1 ♦ 

1 1 


I 


I 459.6 

I 1 


I 


I 

{ I 


* 12 

I T T * T 1 4 459, ft 

1 1 


* * 





• * 


I 

I 


• 

* I-/0) 

1 

1 

* 

TOR - TO - 

5 *-♦ 

I 

I 


* 

4 I 

ENTER LOOP TO FIND 

1 


* * 

1 

FVAP OUTLET TfMP 

1 


* * 

I 

I 

1 


* 

.... 

I 

l 


I 1 ♦ ) 

. 3 3 . 

4 

* 


I 

. 07 . 


*19 


*--- 


— + 

I 

E f F * I T R - 32.) 

I 

I 7 


H 

*- 


A 

16 

CRY 

H 


I 


I. 

iqe.wcpc.tr, 

H 


I 


10 

22, WEV(N) J 

H 


I 


11 


H 

HFAT REJECTED 


*--- 


--* 


1 



1 



I 

21 


l 

1 7 

* — 


— * 

* — 


-- * 

I 

wevini = 

I 

l 

TEOIN) = Tl 

I 

I 

WCPC* (TP - 

I 

* 



I 

T R 2 1 / 1 060 • 

I 




I 

TEOIN! = TR? 

I 


I 


* - 


- - * 


... 



I 



.33.08. 



I 



• • 


1 S 

TEMP WITHIN 



... 816 


TOLERENCF 



I 

I 


I 

* 22 


* * (-/0> 
* ABSIT 10 - *-♦ 

* TR? I - .5 * I 
x * I 

* * I 

* .... 

I I ♦ J . 33 . 
I ♦ 08 . 

I .... 

I 81b 

I 
I 
I 

.33.01 . 

... 817 


♦ - - - - — » 
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PROC EOURES 


NOT IN TOLER ENC6 

32.22 J * 

817 1 

4 . - - 

T in » TR2 


l 
I 

TRAIN! * T 10 ♦ DT I 
I 

T I « TRAIN! ♦ I 

459.6 I 

* — — * 

I 

I 

815 I 0? 

* — • 

I TO » TIO ♦ 459.6 l 

• --* 

I 

I 

I 


6 NO OF 00 *- 

LOOP * 


IYFS . 32 

I . I 


i mp NOT CONVERGED 
I 


I 


04 


/ WRITE TO UEV / 
/ 6 / 

/ VIA FORMAT / 

/ 98 3 / 


/ FROM THE LIST / 


L 1ST a 

TR?. cr , 


NOTE 05 

* * * ♦ ♦ 
RAIN!, * 
TP, QTOT * 
4 4 4 * 


2.01 . 
... 800 


RADIATOR DID TOTAL 
JOB 


32.12— »• 



819 I 


07 


QE ■ 

0 . 

I 


WEVINt 

* 0 . 

I 


TFOIN! a 

TOR - 

I 


459. 

6 

1 




- - * 


AVG FLOW RATE 
I 


I NOTE 15 


32.17*— I ! 

I 

• 


816 I 

08 I 

* 

LIST* * 


- - 4 1 

4 

I WE VI J! , J * I , NS 1 * 

I WA » WA ♦ 

I 1 

4 

*44*444444 

I WEV(N!/STEP 

l I 


l 


— * I 


I 

I 

1 


I 16 

810 I 

09 I 


/ WRITE TO DEV / 


— * I 


/ 6 / 

I A = A ♦ DT HE A 

I I 


/ VIA FORMAT / 


I 

/ 

9861 / 

I 

l 

I 

I 

/ 

FROM THE LIST / 

I 

* 10 

I 

I 


I 

I 

* * 

I 


I NOTE 17 

# * 

I 

4 


* * 

NO I 

4 

LIST* * 

* END OF DO 

*-♦ I 

4 

(TRAlJlfJ - 1 » NS 1 • 

* LOOP * 

I I 

4 


* * 

I I 


I 

• • 

I I 


I 

* 



I 10 

l YES 

32 . I 



I 

04 . I 


/ WRITE TO DEV / 

I 



/ 6 / 

1 



/ VIA FORMAT / 

I 

I 


9862 / 

1 

! 

/ 

FROM THE LIST / 

END LOOP -PRINT 

! 


I 

VALUES 

I 


I 

1 

I 


I NOTE 19 

I 

I 

4 

4444444444 

I 

ll I 

* 

LIST* 4 


— - I 

4 

ITR81J),J = 1 » N5 » * 

/ WRITE TO DEV 

/ I 

4 


/ 6 

/ I 


I 

/ VIA FORMAT 

/ I 


I 

/ 904 / 

I 


I ?0 

/ FROM THE LIST / 

I 




1 


/ WRITE TO DEV / 

l 

l 


/ 6 / 

I 

I 


/ VIA FORMAT / 

I NOTE 

12 I 

/ 

9863 / 


* * I 

/ 

FROM THE LIST / 

• LIST » OTOT, WA, 

* I 

-- 


* STEP 

• I 


I 


* * I 


I 

1 

I 


l NOTE 21 

I 

1 

4 

4444444444 


13 I 

4 

LIST* * 


I 

4 

( T EDI J ) , J - 1, NS ! * 

/ 

/ l 

4 

*** «***44* 

/ WRITE TO DEV 

/ I 


I 

/ 6 

/ I 


I 

/ VIA fORMAT / 

I 


I 22 

/ 985 / 

I 




I 


/ WRITE TO OEV / 

I 

I 


/ 6 / 

l 

I 


/ VIA FORMAT / 

I 

14 I 

/ 

98 7 / 


I 

/ 

FROM THE LIST / 

/ WRITE TO DEV 

/ I 

— 


/ 6 

/ I 


I 

/ VIA FORMAT 

/ l 


I 

/ 98 4 / 

I 


I NOTE 23 

/ FROM THE LIST / 

I 

4 

• 44*444*4* 


I 

* 

LIST * (LlJ!,J * * 

I 

I 

• 

1 . NS ! * 

I 

I 

4 

444*444*** 


I 

I 

I 2* 


800 
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CHART TITLE - NON- PROCEDURAL STATEMENTS 


DIMENSION S1100),TI100I 

DIMENSION TRA130) ,TRB130) , TEOl 30 ) , WEV1 301 .L130I 
DIMENSION FWTC30) , FXWl 30 ) , S WT 1 301 
DIMENSION TQ( 20) ,TX0I20) , PT I 20 > , WTT 1 20 I 

DIMENSION T41 120) *TQit20) , TRD31 20) , TXOl l 20) , P T 1 1 20) , WTT 1 1 20 1 , 
T42120) ,WC1( 50),TQ2150I,TR001I50I,TX02150> , PT2 1 50) , WTT2 ( 50 I , 
T43150) 

,CFTI30),PNI30I 
COMMON X1700) ,LA,NPER,PP 
EQUIVALENCE 

1X1 101 ) ,FWTI l )) , (XI 131 ),FXW1 1 ) ) , I X (I 6 1 ) , SWT (1) ) 

,1X1191), PW ID), 1X12211 ,CFT( II ) 

EQUIVALENCE 

1X1 1),TCAB ),1XI 2 ) , PC AB ) , ( X ( 3),RA ),(X( 4),TR0IN ), 

1X1 5 ) ,HC IN 1,1X1 6), CPC 1,1X1 7 ) ,CPR 1,1X1 P),RHOC ), 

(X( 9 ) , RHQR ) , IXI 10) »WC02 ) , 1 XI 1 1) ,DAYN ), 1X112), QSM >, 

1X113), QSE ), 1X114), QLM I , 1 XI 1 5) , QCPl I , 1 X( 16) , QCP2 ), 

1X117), QFC > , « X 1 181 , QSU8 I ), 1X119), A1 1,1X1201, A2 ), 

1X121), OTX ) , 1 XI22) ,T01P ) , IX 1231 ,TVOL I, IXI 24) , DAVE ), 

1X125), RMAX ), 1X126) ,HX1M ) , 1 X 1 2 7 | , SPL I TM ) , 1 X 1 28 I , CONDM I, 

1 X 1 29 ) , RHMAX ) ,1X130) ,WRAT ) 

EQUIVALENCE 

IX131I.FWI 1, 1X132), FW2 ), 1X133), PPF », 1X134), PPV ), 

1X135), FW5 1, 1X1361, EX ), 1X1371, EY ), 1X138), DWC ), 

1X(39), FW9 I , 1 XI 40) • FWIO ), 1X141), DPI ),(X142),0P2 ), 


IX143I, 0P4 ) , 1 X 1 44 ) t DP6 1,1X145), DP9 ) , l XI 46 1 , DP 1 0 ), 

1X147), TS 1,1X148), CPA ), 1X149) ,AMAX) ,1X150) ,FEXP) 

EQUIVALENCE 

1X151) ,QAMIN), 1X152), QCPM 1,1X153), 061 ),<X(54),QE2 I, 

1X155), TE1 I, 1X1561, TE2 ) , 1 X 1 57 | , DPE 1 ) , 1 XI 58) ,DPE 2 I 
EQUIVALENCE 1 X 1 59 I , FR AD ) , 1 XI 60 ) , FC 02 I , I X 1 61 ) , F NC02 1 , 1 X 1 62 1 , TCMAXI 
EQUIVALENCE 

(SI l),X(30l)),(T(ll,XI 40 1)1 

, 1 X163 I.CHSBI ,1X1 64 ) , EH20 I , 1 X 1 65 1 , CYC.L ) , 1 X 1 66 ) , QEB 2 ) 

,1X177) , FRESH 1 , 1 X 1 67 I ,OCHIL I , 1 XI 68 ) , TOLQ I,1X(69),WFC ) 

, 1X170), RN I, 1X1711, WC I, 1X1721, T? I , I X 1 7 3 ) , F ACT I 

, 1 XI 100) , PERF ),IXll91),PWll)l, 1X1221), CFTC1I) 

,1X12511, Vll ), 1X1252), VI2 1 , 1X1253), V9 I , 1 X I 2 54 ) , V 10 ) 

, 1X1255), V17 ) , I XI 256) , V19 ) 

,1X173), TCRY ) ,1X174) , TSUfl I , 1 X ( 75 I , TFC I I , 1 X I 76 I , TF CO I 
,1X11001, PEPF > 

,1X178 I.FMIS ), 1X179 ),STEP ), 1X180), TAU ) 

?4?3 FORMAT tlHO' SFNSIRl E FAN *,F8.2,8H FANWT F8.2,BH WTVK I 

1003 FORMAT 1 1 HO* f ONOl NSER FAN ',F8.?,3H FANWT F8.2.RH WTVK I 

977 FORMAT 1 1 HO' COMPONENT FLOW R AT FS-CFH* /F8. 1 , • CONDF S ENF 

• » FR, 1 » • AVTANh ' » F8 » 1 » ' AVFANR ',F8.1,» VENTF *,F8.1,' LIOH •) 
9 7 FORMAT 11 HO* TOM PONE NT F ACTORS -OA , EFF , FTC. */ 1H 15F8.2/IH 14FR.2 ) 



10/12/72 
CHART TITLE 


NON- PROCEDURAL STATEMENTS 


AUTOFLOW CHART SET - H247B 


SP 01T72 
PAGE 35 


989 FORMAT (lHO'SUBLIMATOR LOOP NOT CONVERGED'/ 1H F8.1.8H QTOT F8.lt 

8H QR E J F 8. 2 ♦ 8H TR I F8.2*8H TRO F8.2.8H TSUBO ) 

961 FORMAT H HO* CONDk SE R PERFORMANCE NOT CONV ERGED' /F 8. 1 • • WCOOL 
F8.2t* TCI ',F8.l«' QCABS '|F8.1,' QCABL 'tF8.2t # TCAB F8.lt* 

OSH F8.1,* OLH '/F8.1. * VA|R ' »F8, 2« * PWFAN *1 

980 FORMAT ( 1H0* REHEATER REOUlREO'/ F8.lt* OSENS 'tF8.2t' TCAB 1 , F 8. I , 

• VSENS • t FB. 2 i ' TC IN » 1 

963 FORMATUHO'SENS HX FLOW LOOP NOT CONVG* /FR.2, • T A I *,F8.2,*TAfl 
•tF8.lt' WAIR *, F8.1,' WAIRMAX • » 

962 FORMAT (1H0* CABIN TEMP NOT CONV ERGED' /F 8 . 2 1 * TCAB *, F8.lt* WASEN', 
F8.lt* QSENSX 'tF8.lt* OCSEN ',F8.2t* TCDI 'tF8.2t* T S I * 

, F 8 . 1 t 8H QSMET F8.1,8H QLMET » 

9621 FORMATUHO'HSC-CABIN TEMP LOOP NOT CONVFRGFO* /IM F8.2.BH QSM 

F8.2,8H OLM F8.2.8H TCAB F8.2.8H 0CA9S > 

9641 FORMAT IIHO'WATER COOLEO AVIONICS B A Y • / 1 H FB.ltSH CHX F8.2.8H WC 

PAIR F 8 . 2 1 8 H TBAY F8.2.8H THXAO F8.2.BH THXCO I 
96*> FORMAT UNO* WATER COOLED AVIONICS BAV'/FB.l,' OHX *,F8.1,* WCPAIR* 

t F 8.2 t ' TBAY *,Fe.2t* TXO •* 

965 F OPM AT 1 1 HO* R AOI ATOR LOOP COOLEO AVIONIC BAY*/ 

F8.lt' 3HX '.FB.l,' WCPAIR ',FB.2,' TBAY *,F0.2t' TXO ** 

964 FORMAT U HO* FUEL CELL HX «/ 

F8.1,* QFC *, f8.l,* WFC *.F0.2t* TF/CI ',F8.2t' TF/CO *1 
96 7 FORMAT IlHO'CABIN LOOP TEMPS 'I 

968 FORMAT (IHO'RADlATOR LOOP TEMPS •» 

971 FORMAT (1H0* HEAT LOADS */ 


F8.lt* OCOND *, F0.1,' OSENS FR.lt* QCPUMP ', F8.lt* QINTX *, 

F8.1,* QRPUMP '.F8.1.' ORAD '/FB.l,* OFVAP '*F8.1,* QRY 
F8.1.' OLAT * » 

y72 FORMATUHO'SENS HX PERFORMANCE •/ 

FB.l, AM OSENS F8.1.8H VHX F8.2.8H TXAl F8.2.8H TXAO F8.2, 
8H TCAB F0.l,8H QMETS » 

901 FORMAT I20H OLAT NOT CONVERGED /1H F8,?,8H TRO F8.2.8H TIHXO 

F8.4.8H PH20I F fl .4 . 8H PH200 I 

902 FORMAT 1 20H CANNOT MEET OSENS / 1H F8.2.8H TRO F0.2.8H TIHXO l 

903 FORMATUH F8.1.8H QHXS F8.2.8H TEOWT F8.2.8H HXWT F8.2.8H WAL 
LWT F8.7.8H FANPW F8.2.RH TAOX * 

904 FORMAT (26HISYSTEM ITERATION WEIGHTS /IH F8.1.8H TIHXI F8.2.BH TIH 
XO F 8 • 2 1 8H TEOWT F0.2.BH TOTWT F8.2.8H TOTPW F8.?,BH TAOS 

F 8. 2, 8H TAOC > 

905 FORMAT Ml 4H0 H20P EM HXSLNS W/S PUMPC HXINTF PUMPR R AOWT 

SUBLIM C02REM VENT CONTC FAN C FAN A FAN MS > 

906 FORMAT U4F8.2 1 

S07 FORMAT (27HO COMPONENT POWERS I WATTS* /65H H20REM SENSE PUMPC 

PUMPR C02RFM V ENT F EBAY 1 EBAY2 » 

Q OH FORMAT I 30H0C0MP0NENT FLOW RATES CFM / 

IH F10.lt 8H H20PEM F9.1.8H C02R EM F9.1.8H SENHX F10.1.8H VENT 
FIO.1.0H CDNTM FlO.l.AH f AN C F10.1.8H FAN A / 
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IH F10.1.8H EBAY1 F10.1.8H EBAY2 ) 

909 FORMAT ( 1H F0.9 f 8H POPO F8.1.0H WCOOL FB.3.8H W8C02 FB.3.8H HBO 

fcS F8.2.8H ULLPEN F8.1.BH ARAD F8.2.8H WTEXP 1 

910 FORMAT ( 1 3H0 INPUT DATA / 


IH 

F8.2,8H 

TCAB 

F 8. 2 » 8H 

PCAB 

F 8. 2 » 8H 

RGAS 

F8. 3,8H 

TR ADO 



F8.2.8H 

WRAD 

F8.2.8H 

CPCOOL 

F8.2f 8H 

CPRAD 

F0.2,8H 

RHOC 

/ 

IH 

F8.2, 8H 

RHOR 

F8. 2.8H 

WC02 

F8.2.8H 

DAYS 

F8. 1 ,8H 

QSMET 



F8. 1 ,8H 

OSENE 

F8.1 ,8H 

QLMET 

F8.l,9H 

QCP1 

F 8 . 1 ,8H 

QCP2 

/ 

!H 

F8. 1»8H 

OFCELL 

F8. It 8H 

QSU8L 

F 8. l,8H 

KEY C02F8. 1 , 8H 

KEY H 20 



F8. 2.8H 

DT IHX 

F8.3, 8H 

TOLP 

F8. i,8H 

TVENT 

F8.3.8H 

DAY EM 

/ 

IH 

F8.2.8H 

NO TRADES. 2.9H 

NO T I HOF 8. 2 f BH 

BLANK 

FR.2.8H 

NO QL AT 



F8. 3 » 8H 

PHMAX 

F 8. 2 t 8H 

WC/WR 

F8.9.8H 

DT RADUF8.9.8H 

EF FC 

/ 

IH 

F8 • 9, 8H 

PPFIX 

F8.5, 8H 

PPVAR 

F8.2.8H 

KEY HXSF8. 9 , 0H 

KEY OPT 



F 8 . 9 , 0H 

NO WC 

F8.9,8H 

FACT WCF 8 • 9f 8H 

KEY RADFB.9»8H 

KEY CON 

/ 

IH 

F9. 2,8M 

OP H20 

F8.2» 8H 

DP SHX 

F8.2.8H 

DP CP 

F 8. 2 » BH 

DP RP 



F8.2.8M 

DP C02 

F8.2.8H 

DP VFNTF 8. 2 # 8H 

T SINK 

F8.2 ,8H 

CPA 

/ 

IH 

F8. 2, 8M 

AMAX 

F8.2»9H 

FEXP 

F8.2, 8H 

QAM! N 

F8. 2,8H 

QCPM 



F8. 1 • 8H 

OEI 

F8. l,8H 

0E2 

F 8. 2 f 8H 

TE1 

FB. ? ,8H 

TE? 

/ 

IH 

F8. 2 »0H 

DPE1 

F8.2f BH 

DPE2 

F8.2.9H 

F RAD 

F8» ? # Bh 

F C02 



FB. 2,8H 

FN C02 

F8. 2.RH 

TCMAX 

F8.3.8H 

C02L 

FR • 3 i 8H 

6FH20 

1 

FORMAT ( IH FS.l.eH 

ULLOES F8. 1 1 8H 

ULLC02 F8.1,8H 

OEW PT F 8 . 1 1 8 H 

TAO 


Ell F8.1.8H TA0E12 FB.1.8H TEBl F8.1.8H TEB 2 /1H F8.1.8H TA0E2 

) 

912 FORMAT 1 1H0* E8HX1 EBFANl EBHX2 EBFAN2 FCHX CRYHX WTH20 

WTHYO FFVAP GSE •» 


030 FORMAT (26HOCOMPONENT WEIGHT FACTORS / 

122H CONO SENHX W/S PUMPC HXINT PUMPR RAO SUB 

LI OH VENT FANC FANS C HSC CONTM / 

1H 15FR.9 1 

931 FOPMAT (?0H SUBSYSTEM FIXED WT / IH 15F8.2 » 

932 FORMAT ( 2 3H STRUCTURAL WT FACTORS /IH 15F8.9 I 

9 33 FORMAT I IHO'COMPONFNT WEIGHT FACTORS*/' EBHXl EBFANl EBHX2 EB 

F AN2 FCHX GSEHX CRYHX CHILL SlIBl T FFVAP A 8' 

/15F8.9 I 

939 FORMAT (20H SUBSYSTEM FIXED WT / IH 15F8.9I 

9 3 8 FORMAT ( 2 3 H STRUCTURAL WT FACTORS /1M 15F8.9I 

936 FORMAT ( 29H0 RADIATOR LOOP TEMPERATURES I 

937 FORMAT I29H0 CABIN LOOP TEMPERATURES I 

938 FORMAT ( 32HO EBAY1 EBAY? SU8LIM 1 

990 FORMAT 1 1 8H CASE DIO NOT RUN » 

94! FORMA T 1 1 H 9F10.I I 

9 C| 0 FORMAT ( 2QH0 OPTIMUM CONfllTION F8.1.5H WC /50H TOTCQwT TRO 

TINHXO TOTPW TOTWT J 

9M Format (in sfio.i > 

J92 FORMAT (32H FLOW R AT F LOOP 010 NOT CONVFRGE I 

9 9 » FORMAT JlH 6F10. l> 

959 F ORMAT ( 90HQ TOTEOWT TINHXIJ TOTPW TOTWTFP.l.SH WC F8.2 
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955 

960 

970 

975 


915 

981 

982 


983 


984 


985 


986 

9861 

9862 


,4H TROI 

FORMAT (28H0 OPTIMUM CONDITIONS SUMMARY /6QH TOTEQWT WC 

TRO TINHXO TOTPW TOTWTI 

FORMAT 1 1 3HQ OUTPUT DATA I 
FORMAT 1 1H 11F10.1I 

FORMAT 1 12H0 HEAT L0ADS/119H CONOMX SENSHX INTERHX FUfcLCEL 
L RADIATOR EXP HX TOT l A T SENSC02 LATC02 SENSH2 DP LA 

TH20P OSINK 1 

FORMAT 1 1H F0.1.8H CYCLE F8.1.8H QEB2 I 
FORMAT 1 1H 15F8.3I 

FORMAT ( 1H FB.2»8H QCHIL F8.3.8H TOLQ FB.l,0H WF/C F8.1.8H KEY 
SK F8.1.8H WCOOL F8.1.6H TIFXI FB.2.8H TIMECY F8.2,8H TIMES8 / 
IH F0.2,8H TFCI F8.2*8H TFCO F8.1,BH NUBFRH F8.4.8H EMIS 
F8.1»8H STEP F8.2»8H TORBIT F8.1,8H PERF I 

FORMAT I IHO'RAOIATOR /EVAPORATOR EXPENDABLE USAGE NOT CONVERGED '/ 1 H 
F8.t*8H TRAD I N F0.1.8H TEVAPO F8.1.BH UEVAP F0.1.8M TRADO 
F8. l*8H QTOT I 

FORMAT { 1H1* RADI ATOR/EVAPORATOR EXPENDABLE USAGE'/IH F8.1.0H Q TOT 
F8.1.8H WFVAVG F8.1.8H NO. STEP 1 
FORMAT ( 1 2H0 ORBIT STEP * 1/16 2/17 3/18 4/19 5/20 

9/24 10/25 11/26 12/27 13/28 l 


6/21 7/22 8/23 

4/29 15/30*1 

FORMAT 1 1 1 H WE V APORANT 
FORMAT 1 1 1 H T RAO IN 
FORMATUIH T SINK 


15F8.2/11H 

15F8.2/11H 

15F8.2/11H 


15F8.2 I 
15F8.2 I 
15F8.2 I 


9063 

907 

980 


FORMAT 1 1 1 H TEVAP OUT 15F8.2/11H 

FORMATIllH OFF TABLES 1518 /11M 

FORMAT UHO'COMPONENT POWERS -WATTS*/1H 15F8.2 


15F8.2 I 
1518 1 
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SUBROUTINE L IOH 1 J , OAY . DPF , ML ♦ WT , PW , V, QS . QL1 


03.06*— I I 

I 


38.01 » I 

I 


I COMPUTED GO TO ! 
[ FOR NPER I 


QS * 

35. *WC02*FC02 


11 

12 


38.02 I 
38. 14 ! 


I 

! 

! 

I F OUT SI OF THE RANGE 
I 
I 
I 

PERFORMANCE 
CALCULATIONS 
WT OF L I OH CHARCOAI 

I 

38.01 1 I 

111 02 

* --- * 

WL * 

WC02*0AY*1.263 
TN » 

WC02*0AY/8.44 
IN a TN 
WN « IN 


I 


TN - WN - 

.001 


I I ♦ I 

I 

I 


I 17.5 *WC0?*FC02 

o — 

I 

I 

l 

CD2 PARTIAL PRES 
I 

. I 
I 


PHIN - 

WC02*I TCA8 ♦ 
459.6 ) 

*FNC02*FCC2/ 

FRESH/V/I.870 

PMAX a 

PMIN*.95/CFTI J| 


PRINT DATA 


16 


-I* 

I 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 20 / 

/ FROM THE L 1ST / 

I 

l 

I NOTE 17 

• «***••**•« 

* LIST » PMAX, * 

* PMIN, QS, QL * 

*•33*3*3*3* 

l 



I 

I 

I 

I 

L I OH 

M-VALVES 

I 


1 

15 I 

1 

04 I 



I 

1 08 

I 

WN = WN ♦ 1. 

1 I 

18 

I 

H 

3 


--3 I 

I l 

I 

WTV2 H 


I 

I 

I . 

I 

IV, l » WTM) H 


| i 

I 

10 

I 

H 


1* I 

05 I 

I 1 

l 

H 

| 

WL = WL*WN/TN 

I I 



I 

* 


— * | 



I 


l 

I 



I 09 


I 

I 

3- 

— 



I 

I 

I 

WT * 

( WL *F WT ( J I ♦ I 

F AN 

POWER 

I 

I 


F XW ( J J ♦ 1 


l 

I 

I 

2. *WTMI *SWT ( J 1 I 


I 

I 

• - 




I 

06 I 



I 

* — 


* I 



I 

I 

v * wcn?*300. 

I I 



I 10 

I 


I I 

3 - 

— 


I 

PW = 

1 I 

1 

COMPUTED GO TO I 

I 

V*0PF/510«/CFT 

I I 

l 


FOR LA I 

I 

(111 

I I 

«- 



« — 


-- * I 

I 

21 

38.13 I 


I 

I 

I 

22 

38.11 I 


I 

l 

3- 

— 


1 S 

POWER TOO LOW 

I 



I 

HEAT LOADS 

I 



1 


I 

I 

IF 

OUTSIDE THE RANGE 


I 

07 I 

38. 10 

j i 

* — 


- 3 | 


22 

I 11 

I 

OS = 

I I 


- 


I 

36. *WC02*FC0? ♦ 

I 1 


/ 

WRITF TO DEV / 

1 

PW*3 .414 

I I 


/ 

6 / 

I 


I I 


/ VIA FORMAT / 

I 

01 = 

1 I 

/ 


23 / 

I 

1 7. 5*wcrp*Ecn2 

I 1 

/ 

FROM 

THf LIST / 








I 

I 

I 

I 



I 

I 

I NOTE 12 




3 

* * 

3*33**33 


* l 1ST * HN, WTM, * 

* WL * 

33333333*33 

I 

38. 10* — I I ( 

21 I 13 


* FX IT 
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0 (MENS ION FWTU5 > ,FXW< 151 ,SUTI15) 

DIMENSION 

CFTI30I 

COMMON XI700I ,LA,NP6P»PP 
EQUIVALENCE 

txuoW'Furm uixmn ,rxwmi,ix(i6i»,s«Tnu 

EQUIVALENCE I X l ftO I , FC02 ) , ( X 1 61 I , FNC02 I » 

( X C 22 1 ) * C FT (111 » I XI 1001 * PERF I , I XI 101 , WC02 I 
•IXllItTCAB ), 1X177), FRESH) 

?3 FORMAT 1 1 HOF 8* 1 , fiH NO. CAR F8.2.8H MVALVE F8.2.8H L10HWT ) 

20 FORMAT! 1H1 »LIOH SUBROUT I NE-C02 PARTIAL PRESSURE S« / F8 . 3 , • PMAX 

*F8 .3 , • PMIN * , F8 • 1 » * QS *,F8.l,» QL • I 
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INTRODUCTORY COMMENTS 


COND HX SUBROUTINE 



10/12/72 


AUTOFLOW CHART SET - H2470 


SP 01T72 

PAGE 4i 


CHART TITLE - SUBROUTINE C HX I QS ,QL» TC , TC ! , WCPC ,RHO, CP A* PNAX , DPF , T AO, J , QCS »V #PW • 


/ CHX 


/ 


07.01 1* 

MAX. DEW PT. 
$ OE GUG( AL L I 


I 01 

* * 

I I H 

I I KANDK H 

l t ( PMAX , TMAX, 1 I H 

I 1 H 

I I H 


I 

l 

I 02 

TMAX = TMAX - I 

459.6 I 

! 

WH?0 a QL/1065. I 

I 

3L3 » Qt. ♦ QL 2 I 


I 

I 

I 

* 03 

* * 


• * ( ♦ I 

* K 

* * 1 

* * I 

• * I 

* ♦ 
1 (-/OJ 


? 4 


04 


I L « 1 I 


HX MAX 0 

)• 

25 I 05 

* * 

I QT » US ♦ QL I 
• ♦ 

1 

I 

FIRST GUESS OF HX Q 
I 
I 

I 06 


YES 

41.08 I* 

12 I 12 

• * 

I 1 = 1 1 

« — * 

I 

I 


I 

I 


.41.10. 
... 15 


l TCO » TMAX 

I 

I 

I 

HX Q 

1 

l 

I 

* * 

1 QC - WCPC* I TCO 
I TCI I 

• — -- 

I 

I 

I 

CAN HX on TOTAL 
I 
I 
I 

* 08 


I 
I 
I 

FIRST GUESS TAP 
l 

41.04* — III 

15 I 10 

* * 

I COMPUTED GO TO ! 

I FOR LA I 


♦ 


84 

76 


41.11 I 
42.01 I 


I 

I 

I 

OUTSIDE THE RANGE 
I 

1.10 ) I 

84 I 11 


TAO 


= TCI ♦ 2. 
NT * 10 
I « 0 


I 

1 
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CHART 


TITLE - SUBROUTINE CHX I OS , OL.TC , TC I . WCPC , RHO, CP A , PNAX , OPF, T AO, J , QCS. V , PW , 


41,10 ) I 

I 


NT 

I 


r 

i 

i 

ENTER OPT! MAZ AT ION 
L OOP 

I 

41.11 1 I 

77 1 NOTE 02 

**9***«#**« 

* BEGIN DO LOOP * 

* 100 N = 1, NT * 

*«****#««»» 

I 

46.04 ) I 

l 03 


I COMPUTED GO TO 
I FOP L 


21 

22 


42.04 I 
43.01 I 


I 

I 

I 

I F OUTSIDE THE RANGE 
I 
I 
I 

MX LOES TOTAL 0 

21 VOLUME FLOW REG 
I 

42.03 ) I 

21 I 04 

6 if 

I V = OS / I TC - I 

! TAOl/RHfl/CPA I 


RH TOO HIGH 
>* 


I = 1 

ABIN 

I 

I 

OF W PT, 


— -1 I 

31 

I 1 

I 

I 

KANOK 

I 

I 

I 

I PXI , TDP , 1 ) 


I 

I 

I 14 


.43.13. 


... 33 


hx cutlet water vapor 


PRES 

I 

I 

I 05 


II H 

I I KANDK H 

I ! (PXO.TAO + H 

I I 459.6,21 H 

I I H 


I 

I 

I 

H 20 LEAVING HX 

I 

I 

I 06 


I wwn = 

1 IPXG/0.595/LTA0 ♦ 
I 4 59 • 6)1 *V 


I 

I 

I 

*ATfP ENTERING 
I 
I 

I 07 

* — 

I HWI = WwC ♦ WH20 I 

* * 

I 

I 

I 

1NLFT VAPOR PRES 

I 

I 

I OR 


1 PX I = 

1 WW *0.545*1 T Af) ♦ 
I 4 59. 6 I /V 


I 

I 


1* 

I 09 


H 

K4N0K H 

(PXI , TOP ,11 H 
H 
H 


I 

I 

I 10 


I PXI = I 

1 WWl*.59S*TDP/V I 

* * 


I 

1 

IS RH OK 

I 

I 

I 

* 11 


PXI - PM4X 


(♦I 
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CHART TITLE - SUBROUTINE C HX I QS , QL, TC, TC 1 , WC PC , RHO, CP A, PNAX , DPF , T AO, J, QCS # V. PH , 


SUE HX FOR LATENT 
ONLY 

42.03 > * 

22 I 01 

• — * 

I TOP *> TMAX ♦ I 

[ 459.6 I 

f 

I 

1 


* TAO - TMAX *-♦ 

* * I 

* * 1 
* * I 

* • • •• 
(0/»! • 43 • 
• Ofl • 


27 * 03 

• * 


* • 

* 

U) 


HX OUTLET VAPOR PRES 


43.02 »* 

26 ! 


*- 

I 

I 


H 

I 

I 

KANDK 

H 

I 

I 

(PXO.TAO ♦ 

H 

I 

I 

1 

1 

459.6,2) 

H 

H 

— * 


I 

1 

I 

VOL FLOW RATE FOR 
HUMIDITY CONTROL 
I 
I 

I 09 

* * 

V = 

WH20/( PMAX/0.595/ 
(TOP) - 

PXO/O. 595/ (TAO ♦ 
459.61) 

QCDT - 

WCPC* l TMAX - TCI) 

I 

1 

I 1 


VM IN « (QCOT - 
QLI 

/ ( CP A*RHO* I TC * 
0PF*3. 414/510./ 
RHO/CPA/CFT (J ♦ 
10) - TAO)) 


RESFT VARIABLES TO 
PREVIOUS ITERATION 



.46.00. 
... 56 


I <-) 

I 

I 

I 

I 

I 

I 


VM I N 


12 
- -t 

I 


I 

I 

I 

FAN POWFR 

I 

— 42.14*—) I 

33 I 13 

* * 

I PW ■ I 

I V*DPF/510./CFT { J 1 
1 * 10) l 


FAN HEIGHT 


17 I 
14 l 
1 . t 
10 I 
I 1 I 


FANWT 

IV.OPF.WTF I 


HX AIR INLET TEMP 
I 
I 
I 

I / 


/ 4 4.o; 
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CHART TITLE - SUBROUTINE CHX ( QS.QL.TC , TCI . WCPC ,RHO , CPA, PHAX » DPF* T AO, J,QCS, V , PW * 


A3. 15 »* 

I 02 

* * 

I TAI * TC *■ I 

I IPW*3.414 ♦ I 

I QS2I/(RH0*V*CPA1 I 


I 

I 

I 

HX SENS LGAb 
I 
I 


I 03 


! QCS = I 
I V»RHO*CP A* (TAI - I 
I TAOI I 
*----— — — * 


(-/0» *ocs - QS - ♦ 

* QS2 - 

*PW*3.A14 - • 
* 1. * 


43 


05 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 211 / 

/ FROM THE LIST / 


I 

I 

I NOTE 06 


TEMP WHERE COND. 

starts 


44 


>* 

I 


10 


I POP I = PXO ♦ I 

I OL 3*0. 59S*T0P/ I 
I 1065. /V I 


I 

l 

I 1 1 


I H 

I KANDK H 

I ( POP I » TOP 1 , 1 1 H 
! H 

I H 


I 

I 

I 12 


I PDPI =» PXO ♦ I 

I QL3*. 595^TDPI / I 

I 1065. /V I 


NO 

SIZE DRY SECTION 

* ) * 

1 34 l 17 


l QO = QCS ♦ Ql3 - I 
I QW I 


I 

I 





I 

4 


*-- — — 

--* I 


I 





l 

• 

LIST * TAO, V, ♦ I 

I 

I 

ORY 

SECTION OUTLET 





I 

* 

QCS * I 

I 

I 

TEMP 






I 

* 

********** i 

I 

13 I 


I 





I 


I I 

* ------- 



I 





I 


I I 

I I 

H I 


( 

18 




I 


I I 

I I KANDK 

M I 

* 


- - * 




l 

COOLANT OUTLET TEMP I 

I I (PDPI ,TDPI,1) 

H I 

I 

TAOD = TAI - 

I 




I 


1 I 

I I 

H I 

I 

CD / V/RHO/C P A 

1 




♦ - 

— 

, ] I 

1 I 

H I 

*- — 








42 I 07 I 

*------ — 

— * I 


l 






*- 


I 

t 


I 






I 

T CCO = TCI ♦ I I 

I 

I 


I 






I 

(QCS ♦ QL3J/WCPC I I 

l 

14 I 


♦ 19 






*- 


*- 

--* I 


* * 







I T 

I TY » TOP I - 460. 

6 I I 


* * 







I I 

* - -- — 

-- * i 


* * 

( ♦ 






I I 

I 

I 

* 

TAOO - TY 

* - ♦ 






* 08 I 

l 

I 


* * 

I 






• * I 

I 

I 


* * 

I 






* • I 

HF AT IN WET SECTION 1 


* * 

I 






* * (-11 

I 

I 


• 

. . . . 






* TCCO - TAI * ♦ 

1 

1 


K-/J) . 

45 






* * 

I 

16 \ 


I . 

04 






* • 

* 

— * I 


I 







* * 

I QW = WCPC*I TY - 

1 I 


I 

61 






* 

I TCM 

1 I 









I < 0/ ♦ > 

« 

— * I 


1 







I 

I 

1 


62 * 20 







l 

I 

1 


* * 







I 

IS HX ALL WET 

I 


* * 







I 

I 

I 


* * 

( 0/ + 


* t 


*. 


45 I 09 

I 

1 

* 

N - 10 

*-♦ 


i 


I 

*- 


I 

I 


* » 

1 


* 01 


l 

l 

1 = 1 I 

* 16 

I 


* * 

I 

* 

* 


I 

* 


* * 

I 


* * 

1 

♦ 

* 


I 


1 

* * 

I 


* 



« 

* 

(-» 

I 


I 

* * 

<-> 1 


I ( - 1 

45 

* r wi s - 

9000. 

*-♦ 

♦ - 

-« — 


* QW - QCS - 

*---—-♦ 



01 

* 

* 

! 




* QL 3 * 



I 

. . * . 

* 

* 

I 




* * 



I 

60 

• 

* 

l 




* * 



I 



• 





* 



I 



I « 0/ ♦ » 

46 . 




I (0/* 1 



6? I 

?1 



14 . 




I 


* - — 




I 





I 


I 

TWTS = 10000. 

1 


I 

I 

1 

I 

6? 




I 

1 

I 

I 


*--- 

I 

I 

I 



1 00 
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CHART TITLE - SUBROUTINE C HX I QS.Ql, TC • TCI #WCPC .RHO* CPA, PNAX , DPF ,T AO. J. QCS, V* PW » 


44.20 1 I 

I 


01 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 21 5 / 

/ FROM THE LIST / 


* * * 

LIST 


I 

I NOTF. 

* * * * * 

» TAO, V. 

QCS 


• • 


03 

— * 

I 


44. ] 9-- 
M 


I OT l M - ITAI - 

I TC CO - T ADO ♦ 


TV)/ALOG((TAI 
TCCOI/ITAOO - 
TV I I 


QQ/D T L M 


NO DRY SECTION 

44.16 1 * 

35 I 

UAD * 0. 

TY » TCCO 

TAOD * TAI 

QW » OCS ♦ 0L3 
— --------- 

I 

I 

I 

SIZE WET SECTION 
I 

II 

40 ! 


I OTLM = ITAOO - 
I TY - TAG ♦ 

I TCI l/ALOGI ( TAOD - 
I TV I/IT AO - TCI I I 
I 

I UAW - IOCS - 
I QD1/0TLM 

-------- 

1 

I 

I 


18 I 
II I 
I. I 

10 I 

11 I 


NT V2 

IV.1.WTMI 


04 




* 

I 

18 1 


I 

I 

11 I 

WTV2 

1 

1 

I. I 

1 V.2.WTK I 

l 

l 

10 1 

. 

l 

I 

n i 



I 1*1 

I 

I 

I 

I 

I 

l 


10 

I 


-I* 

l 


WTV « 3.2 ♦ 
.049*1 V/60.1 


•*.835 


49 
CFTI J I 


UAO 
WT * 

FWTU >*CFT I J I ♦ 
IFXWIJI f 
WTV ) * SWT I J I 

I 

I 

I 


I 

I 1 

* 

I TWT a WT ♦ 

I PP*PW ♦ IFWTIJ ♦ 

I 101*1 WTF ♦ WTKI ♦ 

I • 9* WTF ♦ FXWIJ ♦ 

I 1 0 ) ) * SW T ( J ♦ 101 

• — 

I 

I 

I 

IS THE OEW PT OK 
I 
I 
I 

* 14 


YFS-FIRST ITERATION 

I* 

15 


l 


* <-/0» 
1 *-♦ 

♦ l 

• I 

• I 

I ♦ » . 4h . 

. 02 . 


44.14 
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IS WT QP l M I ZED 

45.15 1 * 

I 

55 * 01 


(-» * 

♦ -* TV.TS - TWT 
l * 

I * * 

I * <■ 


. 43 
. 06 

57 


l f ) 




— 45. 1 5* — II 
I 


I COMPUTED GO TO I 

I FOP LA I 


I 70 
I 01 


46.03 I 
46.10 I 


I 

I 

I 

IF OUTS IDF THE RANGE 

I 

46.02 — n 

78 I 03 

* 

TWTS * TWT 

WTS = WT 

PWS = PW 

U AS * CFT(J) 

TOPS » TDP 

TCO * TCCO 


I 

I 

I 

VS » V 
PXOS * PXO 
QSS * QCS 


I 

I 

1 

NEXT ITER 

I 

44.21 > I 

100 I 


l TAO - TAO ♦ 1. 


05 

I 


DEW PT TOO HIGH 
IS THIS FIRST 
I TERAT ION 

44.01*— »* 

I 

52 * 14 

* * 


* I-/0) 

N - 1 *-♦ 

* I 

* I 

* * I 


( ♦ ) 


46 . 
08 . 

5c 


* T WT S - 9000. 


I ( 0/ ♦ 1 . 43 . 
I . 06 . 

I 57 

I 

I 


.46.08. 
... 56 


* ENO OF DO 

*•♦ 

* LOOP * 

I 

* * 

I 

• * 

I 

* 

.... 

IVES 

42 . 

I 

03 . 

I 

1 

I 

.... 

l 

I 

NOT OP I M I ZED 
I 


I 

I 

07 

/ 

/ 

/ WRITE TO DEV 

/ 


/ 6 
/ VIA FORMAT 
/ 210 


-43.05*— » I 
56 I 


-46. 02* — 1* 
81 I 


I WHX = I 

I FWT I J I *CF T I J I I 


* j 

COMPUTED GO TO 1 I 

FOR LA I 1 

! 

I 

I 11 

80 

<•6.13 I I 

/ WRITE rn DEV / 

81 

46.10 I I 

/ 6 / 

I 

! 

1 I 

1 1 

/ VIA FORMAT / 

l 212 / 

/ FROM THE L 1ST / 

F OUTSIDE 

1 

THf RANGE I 

[ 1 

1 

I 


I NOTE 12 
*«»*«* 
WHX, W T V * 


46.00 I I 

80 113 


* F X IT 
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*CFT( 30 1 

COMMON X<7001,LA,NPER ,PP 
EQUIVALENCE 

(XdOll *FWT( II ) «(X( 131 1 1 FXWll I I *1X1161) .SMTI1I I 
, 1X12211, CFTI1M 

211 FORMAT 120H REHFATER REQUIREO /1H F8.1.8M TAO F8.1,8H VOl 

F8.1, 8H QSENS ) 

215 FORMAT 1 20H TEMPERATURE PINCH /1W F8.1,f»H TAO F8.l,8H V 

F8 • 1 , 8H QCS 1 

212 FORMAT 11H0* CONDENSER WEIGHTS? » F0 . 2 , 8H WTHX F8.2,8H MVALVE I 

210 FORMAT 1 29H NOT OPIMIZED -TAO TOO LOW 1 
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CHART TITLE - SUBROUTINE SHXI QSt TCAB *TC 1 • WCPC » RMO, CPA.PP * J »0P « WT. P W, V, TCO.TAOI 


/ SHX 


/ 


OS. 18* — I* 
FAN TEMP RISE 


I 


01 


I DTF = I 

I DP *3.414/1510.* I 
I KHO*CPA*CFTC J ♦ I 
I 10) ) I 


I 

I 

I 

HX INLET TEMP 


I 

I 02 

• * 

I T A I • TCAB ♦ OTF I 

• — — — * 

I 

I 

I 

MAX TEMP OIFF 
I 
I 
I 


I DTM ■ TAI - TCI 


03 

»-♦ 

I 


I 

I 

( 

ENTER LOOP TO FIND 
OPT. HX WT 
INITIAL TEMP 


I TAO - TCI ♦ l. 


04 

I 


1 V = I 
I OS/CPA/I TCAB - I 
I TAOI/RHO I 


I PW * I 
I DP*V/510./CFTI J ♦ I 
I 10) I 


I 

I 

I 

COOLANT OUTLET TEMP 


I TCO a TCI ♦ IQS ♦ I 
I PW*3.414»/WCPC I 


I 

I 

CAN HX BE BUILT 
I 
I 
I 

* 11 


* BEGIN 00 LOOP 

* 100 N » 1. 10 

* *•••*•*** 

I 

50.14 M 

I 

CALCULATE AIR FLOW 
PATE 

I 


* TCAB - TAO 


I I-/0) 

l 

I 

l 

I 

I I — 

1 

* 07 


TCO - TAI 


l-J 

I 

I 

I 


IO/M . 50 
. 01 


• ♦ 




* (-/O) I 


12 l 

12 

N * 1 * ♦ 

• 


/ 

/ 



/ WRITE TO ObV 

/ 

* * 

/ 

6 / 



/ 

VIA FORMAT / 


1 <♦) 

I 

I 

/ 

10 / 
I 


1 

! 

• - - 

I 

I 

13 

-* 

1 

! 

WT = 10000. 

I 

... 

1 

PW * 10000. 

I 

40.21 . 

I 


I 


! 

TCI) = TC AD 

I 

... 1* 

3- - 


- • 


?0 
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CHART TITLE - SUBROUTINE SHXI OS, TCAB .TC I ,WCPC ,RHQ,CPA, PP, J, DP. WT ,PW, V, TCO»T AQI 


49 . 11 1 * 

1 1 I 


01 


I DTlM * I T A I - I 

I TCO - TAO ♦ I 

I TCn/AlOGMTAI - I 
I TCO ) / I TAO - TCI I) I 

*--- — — * 

I 

I 

I 

UA REG 

I 

I 


I 

02 
— * 

I l TWTS 

I I 

- 

TWT 

I UA = IQS ♦ 

I 3.41 4*p W 1 /DTLM 

I 

I 

1 I WT S 

I I 

- 

WT 

I 

I CFTIJI * UA 

l 

I 

I I PWS 

I I 

■ 

PW 


--* 

I I UAS 

- 

UA 

l 


I I TCOS 

- 

TCO 

FAN WEIGHT 


l I VS 


V 


17 I 
14 I 
I. I 

10 I 

11 I 


MANUEL VALVE 

I 


03 

--* 

H 


F ANWT 

( VtOP.HTFI 


STORE RESULTS 

)*< 

15 I U 


WT VS « WTV 


I 

I 

I 

NEXT ITERATION 
I 
I 

100 I 


12 
— * 
I 


I TAO » TAO ♦ l. 


13 
— * 
I 


IS THE HX OPI MUM 

50.10 I* 

16 * 20 


< -) * 

* T WT - TWTS 


LAST ITERATION VALUES 


--49. 07*— I* 

19 I ?1 


pw = pws 

WT = WT S 
CFTIJI * UA S 


II I 
I. I 

10 I 

11 I 


WTV2 H 

IV.I.WTM) H 

H 
H 


I 


IB I 

n i 

i. i 

10 i 

u i 


WTV2 

( V, 2 ,WTK) 


I 

I 

TFMP CONTROL VAtVE 

WE IGHT 

I 

I 

i 06 


I WTV = 3.2 
I .0*9*IV/60.) 

I **.835 

* 

I 

I 

I 

SENS HX WT 

I 

I 


1 WT = FWT ( J I *UA 
I FXW(J) ♦ 

I W T V*S W T ( J J 

* 

I 

I 

I 

T0TA1 FQU. WT 
I 
l 


IS THIS THl 
ITERATION 


END OF DO 
LOOP 


I YES 

I 

I 

I 

l 

-I I <- 


49 

06 



I 


20 

15 


l 

*- 




I 

I 

COMPUTED GO TO 1 

I 

09 I 


FOR 

LA I 

1 TWT ■ PP*PW * 

I I 

1 

25 

50.19 I 

1 WT ♦ I FWT I J ♦ 

1 I 

I 

26 

50.16 l 

1 101 *1 WTF ♦ WTKI 

* I I 

* - 



I • 9* WTF ♦ FXWIJ ♦ 

1 I 




I 10)1 *SWT ( J * 10) 

I I 




*- 

— * j 




1 

I 

IF 

OUTSIDE 

THE RANGE 


50.15 ) I 

26 I 


I WT X « FW T I J J *UAS I 


17 


/ WRITE TO DEV / 

/ 6 / 

/ VIA FORMAT / 

/ 30 / 

/ FROM THE LIST / 

I 

I 

I NOTE 18 

*******•«:«* 

* LIST = WTX. WTV S * 
*********** 
I 

50.15 1 1 

25 119 


TCO = TCOS 
V = VS 

TAO = TAO - 1. 

I 

I 


16 


EXIT 
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CHART TITLE - NON-PROCEDURAL STATEMENTS 


DIMENSION FMT 1 1 5 ) t FXWl ISt.SHTUS) 

,CFTI 301 

COMMON XI7001 .LA.NPER 
EQUIVALENCE 

I XI lOn.FKTI n»,4X(131!,FXWin».<XI 16U.SMTI m 
. 1X1221). CFTUII 

30 FORMAT I1M0*SENSIBLE HX »,F9.2,ftM WTHX F9.2.8H WVALVE 1 


10 


FOR MAT 1 22H HX CANNOT BE BUILT 



SP 01T72 
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CHART TITLE - INTRODUCTORY COMMENTS 

ELECTRONIC BAY COOLING SUBROUTINE 
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CHART TITLE - SUBROUTINE E BAY IQE, T£, TC I .WC PC , RHO.CPA , PP, DP » WTHX , W TFAN. PW • V, TCO, 


/ EBAY / 


09. 16*— I * 

FAN TEMP RISE 

* 

I 

* _ 

I QTF r 

1 DP* 3 .41 4/ 1 5 10. * 

I RH3*CPA*CFT(LF ♦ 

i m 

* — . — ... 

i 

i 

i 

AIR INLET TEMP 
I 


HX CAN BE BURT - AIR 
FLOW RATE 

53.05 >* 

3 I 10 

*- ---- » 

l v * QF/f.PA/l TE - 1 

I T AO ) / RHO I 

* « 

I 

I 

FAN POWER 

I 

I 

I II 


I 

I 

I 

INITIAL AIR OUTLET 


55. 04 1 I 

! 

CAN HX BE BUILT 


I PW = I 

I 0P*V/51 O./CFT ILF I 

I ♦ 1 ) I 

• — --- — ----- — * 

I 

I 

I 


TEMP 

I 



TOTAL HEAT LOAD 
I 

I 

I 


03 

I 

I 12 

I TAO » TCI 

♦ 1. 

I 

I QT = OE ♦ l 

* - -- ......... 

I 

I 



I P W* 3.4)4 I 

• — * 

1 

I 

OPT I M I /ATI ON 
I 

Lnnp 


I 

I 

COOLANT OUTLET TEMP 

I 

NOT F 

04 

I 

* * ♦ * • * 

* * 

* * 

I 13 

* BFGIN 00 

LOOP 

* 

* * 

* 100 N » 

. 20 

* 

1 TCO * TCI ♦ 1 


• * 

• • 

I CT/WCPC 1 


I 

I 

I 09 

* — — - — • 

I V ■ 10000. I 

1 ! 
I TAO * TCI I 


CAN HX HE BUILT 
I 
I 
I 

a 14 


HX CANNOT BE BURT IS 
THIS FIRST TIME THRU 
LOOP 


-53.05*—)* 

I 

2 * 


FIRST TIME THRU - USE 
LARGE VALUES AND 
PRINT MESSAGE 


12 I 07 

/ / 
/ WRITE TO DEV / 

/ 6 / 

/ VIA FORMAT / 

/ 10 / 


WTHX * 10000. 
WTFAN * 10000. 
PW = 10000. 
TCO a TF 
OT ■ 100000. 


(- ) 

I 

1 

54 . 
01 . 


• •• 20 
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CHART TITLE - SUBROUTINE E B A V (QE , TE» TC I ,WC PC ,RHO ,CPA , PP , DPtHTHX ,WTFAN« PM t V. TCOt 


HX CAN BE BUILT - LOG 
MEAN TEMP DIFF 


NOT FIRST TIME - IS 
TNT DECREASING 


53.14 1* 

11 I 0 


I DTLM = CTAI - 

I TCO - TAO ♦ 

I TC!>/AtOG! CTAI - 
I TC 0 ) / ( TAO - TCIII 


I 

I 

I 

HX UA 

I 

I 

I 0 


I UA » QT/DTLM 

I 

I CFTILFI - UA 


I 

! 

I 

F AN WT 

I 

I 


I 03 


* 

I 7 I H 

14 I F AN WT H 

I . I < V, DP , WTF) H 
10 I H 

11! H 

<■ ---- * 


I 

I 

I 

CHECK VALVE WT 
I 
I 

! 04 


-) * 
I 


* * <-» 
TWT - T NTS *-♦ 


1(0/41 

l 

I 

I 

I 

I 

! 


55 . 
01 . 


.55.10. 
... 19 


I 1 I WT V? 

I . I I V,2.WTK| 

I 0 I 

1 l ! 


CFM TO CFM 


I WT HX = 

I F WT ( LF I *UA ♦ 

1 FXM(LF) *$WT< LF) 


I 

I 

I 

F AN PACKAGE WT 
I 
I 
! 


I WT F AN * (FWT(LF ♦ 
1 1 I * ( WTF ♦ W TK | ♦ 

1 FXWILF ♦ 

1 1 ) 1 *SWT (LF ♦ 1 | 


1 

I 

I 

TOTAL EUUfV WT 


)* 

I 09 

— * 

I TWT = WTHX ♦ I 

I WTF AN ♦ PP 4p W I 

* * 

I 


I 


IS THIS FIRST TIME 
thru l OOP 

I 

I 

I 

* 10 


55 . 

01 . 


15 
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CHART TITLE - SUBROUTINE EBAY (QE.TE. TCI • WCPC.RHO, CPA. PP* OP, WTHX.WTFAN.PW, V* TCO, 


I S FIRST TIME OR TWT 
DECREASING - STORE 
VALUES 


NOT FIRST TIME THRU 
OR TWT INCREASING - 
USE PREVIOUS VALUES 


5*. 10*— I* 

15 I 


01 


51.06* — I* 
19 I 


l TWTS » TWT I 

1 PW = PWS 


I WTHXS ■ WTHX I 

1 WTHX = WTHXS 


I U AS * UA I 

I WTFAN = WTFS 


I WTFS • WTFAN I 

I CFTILFI = UA S 


I WFS = WTF I 

I TCO = TCOS 


I WKS « WTK I 

I OT = QTS 


I 

I 

I 02 

I 

I 

I 

11 

I PWS - PW I 

I V * VS 

i 

I TCOS = TCO I 

I TAQ = TAO - 2. 

1 

I QTS = QT I 

I 


I VS * V I 

I 


I 

. 55.05. 



END LOOP - STEP AIR 
OUTLET TEMP 

I 

I 

100 I 03 


I TAD » TAO ♦ 2. 


I 


* * NO 

* END OF 00 *-♦ 

* LOOP * I 

* * I 

* • 1 



IVES 

. 53 . 


I 

. 05 . 


I 

I 

• • •• 

51.09* — 1 

1 
1 I 


20 

1 

05 


I COMPUTFD go TO I 

I FOR LA I 


I 21 55.09 1 

I 22 55.06 I 


I F OUTSIDE 


55.05 J I 

22 I 06 

• 

I WT X * FWTUFI*UAS I 


07 


/ WRITE TO OfV / 
/ ft / 

/ VIA FORMAT / 

/ 21 / 

/ FROM THF LIST / 


1 

I 


1 * 

I NOTE 08 

**«**••»*** 

* LIST * WTX, WF S » • 

• WKS * 


55.05 II 

21 I 


* EXIT 
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DIMENSION FMT 1301 • FXM < 301 t SWT t 30) 
tCFTOOl 

COMMON X ( 700 ) t L A » NPER 

EQUIVALENCE < X 1 1011 ,FWT I 1)1 , (X II 311 , FXM(1I | , t XU 6i» , SWT (1) > 
i (XI221 l»CFT 1 1 ) ) 

23 FORMAT IIHO'AVIONICS BAY •»F8.2#0H WTHX F8.2,8H WTFAN F8.2 r 8H WT 

CK ) 


10 


FORMAT ( 22H HX CANNOT BE BUILT 
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HSC ROUTINE 
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CHART TITLE - SUBROUTINE HSC IKC02.QL AT , OAT . RHO , PV I , PD, L , WT , PW, V, WB,WU, VCH, MF 1 


/ HSC 


/ 


05.13*—)* 
0 IMENS I ON 


COMPUTED GO TO 

FOR 

NPER 

41 

58.02 

A2 

60.01 


If OUTSIDE 


SET UP FOR 


58.01 1 

A! 


WH20 » 

QL AT*CYCL/63900. 
WRC * 

WCQ2/CHSB*FC02* 

CYCL/1AA0. 


ENTfR LOOP 

I 

I 

I NOTE 03 
*********** 

* BEGIN DO LOOP * 

* ION* It 9 * 

**«**•«»*** 

I 


C02 LARGER 
)* 


11 I 
WBS 1 N ) a WBC 


11 

I 


I 

I 

I 

VACUUM VALVE WT 
I 

I 

12 I 12 

* — 

I WT V ® I 

I .215 5* V**. 5 ♦ I 
I . 0008 35*V ♦ 2.7 I 

• 

I 

I 

I 


1 A 

I 


FAN POWER 


59. 1A ) I 

I 

S I ZE BED FOR H20 
I 
I 
I 


UNBAR H 

(T(l), 26, VB, M 
PVI , Bl , K I H 


COMPUTFD 

GO TO 

I 

I 

I 

*- 

FOR 

LA 

| 

I 

I 

16 

58.08 

I 

I 

I 

19 

50.06 

■ * 

1 

I 

*- 


I 

I 

I 

I F OUTSIDE THE RANGE 
I 

5B.05 | | 

19 I 06 

/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 21 / 
t FROM THE LIST / 


I 

I 

I NOTE 0 
• ******•• 

LIST * VB, PVI, 

BL , K 

********* 

I 


58.05*--) » 
16 I 


IN) « WH20/BL 
WBS I N I *VB*60 • 


SIZE C02 BED 


• * I-/0) 

* WBSIN) - WBC * 


II- 

l 


DP = PD ♦ 
0.275*1 VB )**1 . 5 


PWSIN) a 
V*DP/180. 


♦ — — 


17 I 
IA I 
I. I 

10 I 

11 I 


FANWT 
I V, DP , WTF ) 


I 

I 

I 

CHECK VALVE 
I 
I 


18 I 

I 1 I 
I. I 
10 I 

II I 


WT V? 

I V, 2, WTKI 


I 

! 

I 

CONTROL VALVE WT 
I 
I 


/ 59. 0 1 



SP 01T72 
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AUTOFLOW CHART SET - H247B 

SUBROUTINE HSC f WC02 .QL AT , OAY , RHO.PVI • PO, L * WT, P W, V, WB »WU» VCH,WF I 


PAGE 59 


50. IB 1* 

I 


I WVC = 3.2 * 
I * 046* I V /60. > 
I **.835 


I 

I 

I 

ULLAGE PENALTY 


I WUSINI * 

I 83.4*Rrtn*0AV*WBS 
I (NI/CVCL 

I 

I 

I 

CANISTER WT 
I 


1 WTX - 1.3*WBS(N) I 


WT S f N > » 

IFWTIL >*< WBS (N» ♦ 
WTX ♦ WTV) ♦ 
FXWILJ ♦ 

WVCI*SWT(L> 

w F S ( N l = UTF ♦ 
3. *WTKI *SWT (12 \ 

l 

I 


NOT FIRST ITERATION 

59.11---)* 

I 

14 * 18 


1-/0I *WTSYS(NI - * 
* WT SYS ( N “ 1 I * 


I WF = KF5INC - n 
I 

I V * VS INC - 11 


SYSTEM WT 


05 


I WTSYSIN) = I 
I WTSIN) ♦ WFSINI ♦ I 
I PWS( N ) * p P I 


I COMPUTED GO TC' I 

I FOR l A I 


59.11 I 
59. 07 I 


1 

I 

I 

IF OUTS IOt THE PANGf 

I 

59.05 ) I 

3? I 07 

/ w«ITf TO OEV / 
/ 4 t 

/ VIA FORMAT / 

/ 22 / 

/ FROM THE LIST / 

I 

I N01E OR 
*********** 

* LIST = WTSIN), * 

* WFSIN). WTSYSIN I, * 

* wnsiNi * 

*********** 

i 

i 


- ) * 
i 


09 


/ WPITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 70 / 

/ FROM THE LIST / 

I 

I NOTE 10 

*********** 

* LIST * WTX, WTV, * 

* WVC, WTF , WTK ♦ 
*********** 


I 

FIRST ITERATION 
I 

59.04 1 I 

I 

31 * 11 

* * 


* * 

* 

(♦ » 


.59.1P. 

... 14 


FIRST ITERATION 
) *( 


I I 1 

I I PH * PHSINC - II I 


NC * NC ♦ l 


I VB * VB ♦ 1. I 

* * 

I 

I 

l 

* 14 

• * 

* * 

* * NO 

♦ END OF DO *-♦ 

• LOOP * I 

* • I 

* * I 

* .... 

I YE S . 58 . 

I . 04 . 

I .... 

I 

I 

I 

I 

NOT CONVERGED 

I 

I 

I 15 


/ WRITE TO DEV / 

/ 6 / 

/ VIA FORMAT / 

/ 20 / 

/ FROM THE LIST / 

I 

I 

I NOTE 14 
*********** 

* LIST = WBSINC - * 

* 1), VSINC - 1) * 

*********** 

I 

59,?0*--l II 

30 I 17 

* EXIT * 


I WB * WBSINC - 1) 

I 

i wu = wusinc - n 

i 

I CFT(L) = WB 

* 

I 

I 
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SUBROUTINE HSC <WC02,QL AT , DAY. RHO , PV I , PD, L , WT , P tf, V , MB ,WU, VCH t HF I 


OFF DESIGN 

58.01 1 * 

42 I 01 

* * 

l WH20 = I 

I 01 AT*CYCL/63900. I 

I WB « CFTILI I 
l VB = V/WB/60. I 

I VBM * VB I 


I 

I 

I 

ENTER LOOP TO FINO 


A IR 

FlOw REQUIRED 

FOR 

HUMIOITY CONTROL 
I 



I 

I NOTE 

02 

* * 

******* 

* * 

* 

BEGIN DO LOOP 

* 

* 

47 N * 1 , 15 

« 

* * 

******* 

* * 

61. 

02 ) I 


F IND 

WATER LOADING 
l 



I 

I 

03 

I I 


H 

I I 

UNBAR 

H 

I I 

< T ( 1 ) ,26,VB, 

H 

I 1 

PVI t BL • K l 

H 

I I 


H 


I 

I 

I 

H 20 REMOVED 
I 


H20 NOT 

CONVERGED-SHOULO AIR 
BE BYPASSEO 


I 

A3 * 06 

* * 

* * 

<01 * * (-1 

♦ -* WH20C - WH20 * * 

I * * I 

I * * r 

I * * , 

•••• * I 

• 61 . I (♦) +. 

. 05 . I 

50 I 

I 
I 
I 

•61.01. 

... 45 


UP CABIN OEWPOINT-IS 
FLOW AT MAX FLOW PATE 


)* 

I 

44 * 07 

* * 

* * 

* * <-} 

* VB - VBM *-♦ 

* ♦ I 

* * i 


UO/tl . 61 . 

I . 01 . 

I 45 

I 

I 

46 I 08 

* * 

I PVI * [ 

I PVI *| WH20/WH20C 1 1 

— --- * 


I 

I 

I 


.61.02. 
... 47 


I 

l 

04 





I WH20C = WB* BL 

I 


I 



I 

I S WATER WITHIN 



T OLE P ENCE 

I 



I 

* 05 



* * 



* * 



* * 

<-/0) 


* ABSIWH20C - 

*- ♦ 


♦WH20) - .05* 

I 


* * 

I 


* * 

I 


* 



I < + J . 

61 . 



05 . 


I 

I 

50 


I 

♦ 




G 
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CHART TITLE - SUBROUTINE HSC I WCQ2 ,Ql AT, DAT , RHO.PV I , PO, L * WT.P W, V, WB ,MU, VCH ? WF I 


CHANGE AIR FLOW RATE 

NOT 

CONVERGED- NEW 


GUESS PC02 


60. 06* — ) * 




45 I 01 

61 

.12 — “)* 




51 I 


I VB = l 

* — 



I V B * WH2 0 / WH20C I 

I 

PC02 

a 


I 

PC02* WCR/BLC 

I 




60. OR » I 


I 


47 * 02 


I 


* * 

IF 

OFF TABLES -HIGH 

* • 

C02 

- PRINT 


* * NO 


I 


* END OF 00 *“♦ 


I 


* LOOP * 1 


I 


* * I 


* 

18 

« » I 


ft 

• 

* .... 


* 

* 

IVES . 60 . 

v (0/+1 

* 

• 

I . 03 . 

------ft 

KC - 

6 « 


I 

* 

• 

I 

I 

* 

• 

I 

1 

ft 

* 

I 

I 

* 


I 

1 

I 

(- ) 


H20 LOOP NOT 
CONVERGEO-PRINT 
I 
I 

I 03 


/ WRITE TO DEV / I 
/ 6 / I 
/ VIA FORMAT / ! 

/ 101 / I 
/ FROM THE LIST / I ♦ 


I 

I 

I NOTF 0^ 


♦ |» 

I I 09 


* LIST = WH20, * 

* WH20T , VB. PVT . * 

* BL * 


END OF 00 
LOOP 


I 

I 

I 

LOOP TO' FIND C02 
PARTIAL PRESS “002 
LOADING 

I 

60.35ft~ 1 I 

50 I 05 

* 

i w: = 

i wcn2*FC0?*r. vci / 

I 1440. 


FLOW RATE 


I vr. = VB*WP*6U. 

* 

I 


06 

-- ft 

I 


BEO LOADING PEQU1 FED 

I 


I wrp = NC/WB 

ft --- — — 

I 

I 

I 

first guess of pc 02 

i 

i 


I PC 02 = I 

I WC/VC/CYCL*ITCAB 1 
I ♦ 459.6J*M75.l I 

• 

I 

I 

I 

ENTER LOOP TO FIND 
PC 02 

I 

I 

I NOTE 10 
• ••*****•*• 

* BEGIN 00 LOOP * 

* 60 J = 1, 15 * 

I 

61.19 It 

I 


UNBAR 

1X1351 I .1 iVB, 
PC02.BLC.KC1 


I 

1 

I 

IS BFD LOADING WITHIN 
TniERENCE 

I 

1 

I 

* 12 


ABSIWCR - 
BIC> - 
• 1 0*WCR 


1 ( ♦ > 

I 

I 

1 

! 

I 


-1* 

I 


15 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FOPNAT / 

/ 103 / 

/ FROM THE LIST / 

I 

I NOTE 16 
**••♦»***** 

* LIST «= VC. V, * 

* PVI* TOP. PC 02 . • 

* K, KC * 


I 

I 

I 

LOOP NOT CONVERGEO 
-PRINT 

I 

) I 

61 I 20 

/ WRITE TO DfcV / 
/ 6 / 

/ VIA FORMAT / 

/ 10? / 

/ FROM THF LIST / 

I 
I 


I 

ft- 

— 


-- * 


I 

NOTE 71 

I 

1 

I 


H 

ft ft ft ft 

ft • ft 

• ft * ft 

I 1 I 

I 

I 

KANDK 

H 

* LIST 

= WC, 

VC, ♦ 

- - ft J 

1 

I 

IPVI .TOP, 11 

H 

* PC 02 

WCR, 

HI C, * 

H I 

I 

I 


H 

• 

KC 


H I 

1 

1 


H 

• * * * 

ft • • 

« * * • 

H I 

ft- 

— 


- - ft 


I 


H I 



I 



I 


H I 



I 



I 


— * I 



! 

14 

RETURN 




I 

l 

I 22 


. 61 . 17 . 
... «l 


30 
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NON- PROCEDURAL STATEMENTS 


DIMENSION FWTI 30) ,FXW130) .SWT130) 

.PWSI 101 »WTSI10»,WBSI 10|,WUS1 10I.WFS1 101 , VSI 10) ,WTSYSI 10) 

# T I 100 1 # CFT 1 30) 

COMMON X 1700 ) »LA»NPER»PP 
EQUIVALENCE 

I XI 1011 ,FWTU ) I , I XI 131 1 ,FXWl 1 ) I , I X I 16 1 » , SWT 11) I , I X I 63 ) ,CHSfl) 
,<XI64 I * EH20 >, 1X160), FC02 ) , 1 X I 65 1 , CYCL ) 

,1X1401 I, Til) ) *1 XI 1) ,TCAB) ,1X1221) ,CFT (1) I 

21 FORMAT | 14H 8ED LOADING 3F10.3,I2 ) 

70 P0RMAT11H FB.?,8H WTC AN F8.2.8H WVVAL F8.2,8H WCVAL FB.2,8H WTF 

AN F6 •?* 8H WKVAL ) 

22 FORMAT 1 1 H 6F10.2) 

101 FORMAT I IHO'HSC WATER LOOP NOT CONVERGED* / 1H FB.2,8H WH20 F8.2,0H 

WH20C F0.2.8H VOLF F8.4,fiH PVl F6.4,0H BEDLD I 

102 FORMAT 1 1HO*C02 I OOP NOT CONV ER GED* /l H F8.3,BH WC02CY F8.1.8H FLOW 

F8.3.8M PC02 F 8 • 3 , 8H BLOADR F8.3.8H BLOADC 13, 8H OFFTAB ) 

103 FORMAT UHO'HSC PERFORMANCE */lH F9.1.8H VREQ F8.1.8H VAVAlL Ffi.4 
,8H PVl F8.2.8H TDEWPT F8.3.8H PC02 (2,I?,8H OFFTAB ) 

?0 F0RMAT119H NCJT CONVERGED HSC / 2F8.2 ) 
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CHART TITLE * SUBROUTINE CONT < J. OP, DAY, WT , V ,QSC > 


/ 


CONT / 


03.05—)* 


VOL FLOW RATE 


I 01 

*- * 

l V » wr.02*300. I 


I 

I 

l 

BEO WEIGHT 

I 

I 

I 02 

* * 

t WTB » I 

I DAY*WCO?*.l IB ! 

• * 

I 

I 

I 

VALVE WEIGHT 

I 


l 03 


IB I H 

II I WTV2 H 

I. I IV.2.WTV) H 

10 I H 

III H 

9 9 


I 

I 

l 

TOTAL HT 

I 

I 

I 0* 

* * 

I WT * I 

I (WTB*FWT(JI ♦ I 

I WT V ♦ I 

I FXWI J) »*SWTt Jl I 

* 9 

I 


I 

I 

FAN HEAT LOAD 
I 
I 

I 05 

* 

l QSC » 0. I 

* 

I 

I 

I 06 


• EXIT 
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CHART TITLE - NON- PROCEDURAL STATEMENTS 


DIMENSION FWT (15), FX«( 151, SMT( 151 
, CFT( 301 

COMMON X(700) ,LA,NP€R,PP 
EQUIVALENCE 

(X<101) t Fwmil,IXII31|,FXM(l||,|X(161|,SWT( l|) 

.1X12211, CFT( l) 1, 1X110), WC021 
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CHART T 


L- . . AUTOFLQH CHA*tJseT_- M24TB : 
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00U8LE ELECTRONIC BAY COOLING SUBROUTINE 



SP 0IT72 

PAGE 66 

CHART TITLE - SUBROUTINE ~iBAV2< QB1, QB2.TE, TCI ,MCPC,RHO,yPA,PP ,DP , WTHX, WTFAN.PW, 


10/12/72 . . — AWIOEiittL CHART -5E.T_r_H2.A7B 


/ EBAY2 / 

I 

09.19—11' 

I 


I TA02 » TC 12 ♦ 2. I 

*- * 

I 

I 

I NOTE 03 
*********** 

* BEGIN 00 LOOP * 

* 100 N > I« 20 * 

* * * ******** 

I 

66.27 1 I 

I 

* 0* 


TA02 *-♦ 

* I 
* I 


66.19- 

2 


66 

15 


66.05*— I* 

12 1 06 

/ / 

/ WRITE TO DEV / 

/ 6 / 

/ VIA FORMAT / 

/ 402 / 

1 

1 

I 07 

* * 

WTHX » 10000. 

WTFAN » 10000. 

PW « 10000. 

TC01 * TE 

TC02 ■ TE 

*------ — _____ 

r 

i 
i 


QTl - 100000. 
QT2 » 100000. 
V « 10000. 


I 

-I I 
I 



DTF *= I 

I V = l 


DP*3. 414/(510. * I 

I QB2/CPA/ITB2 - I 


RHO*CPA*CFT( LF ♦ I 

l TA02I/RH0 I 


11) I 

I I 


I 

I PW * I 


T A I 2 = TE ♦ DTF I 

I 0P*V/510. /CFTILF I 


I 

1 ♦ 1) I 


TB2 «= TE I 

I I 


I 

I QT2 = QB2 * I 


TC 1 2 - TCI ♦ I 

1 3.41 4*PW I 


QBi/WCPC I 

* * 


QTl « QB1 
3.414*PW 


TC01 * TCI ♦ 
QTl/WCPC 


TC 12 « TCOl 


* TA02 - TC l 2 *- 


I Ul 

I 

I 

I 

I 

I 

4 I 

TC02 « TCI 2 ♦ 
QT2/WCPC 


)* 

I 

30 * 23 


* ( 0/* I 

N - 20 *-♦ 



I (- ) 

. 66 


I 

. 06 


I 

I 

12 

31 

I 

I 

24 


.67. 06. 
... 19 


TB1 

TA01 


TE 

TCI 


TA02 « TCI 


09 

--* 

l 


67.12*— II 
I 

300 * 10 


I FALSE 

I 

I 

I 

I 

I 


I WTX = I 

I CFTILF) *FWT ILF I I 


12 


/ WRITE TO DEV / 
/ 6 / 

/ VIA FORMAT / 

/ 403 / 

/ FROM THE LIST / 

I 

I 

I NOTE 13 

*********** 

* LIST = WTX, WFS, * 

* WKS * 

*********** 

1 

II 

301 I 14 4 


• • (0/*l 

TC02 - T A I 2 *-♦ 

* * I 

* • I 


I 


11 


I ( -1 

I 

I 

I 

I 

I 

I 


DTLM2 * ITA02 - 
TC! 2 - TA 12 ♦ 
TC02I 

/ALQGUTA02 - 
TCI2I/ITAI2 - 
TC02 ) » 

UA2 » QT2/DTLM2 
CFTILF I = UA2 


17 I 
14 [ 
I. I 

10 I 

11 I 


FANWT 
I V, OP, WTF I 


I 

I 

I / 


T AO 2 

WTHX * 10000. 
WTFAN * 10000. 
TC02 - TE 
TA01 = TCI 


V = V/60. 

I 


67.07 J 1 

100 ( 


I TAD2 * TA02 ♦ 7. 


26 

I 


END OF DO 

*-♦ 

LOOP * 

1 

* * 

I 

* • 

I 

• 

... 

1 YES 

66 

I 

1 

04 

I 

I 

! 

28 


/ WR1TF TO DEV / 
/ 6 / 

/ VIA FORMAT I 
/ 400 / 

I 

I 

I 


* EXIT * 


20 
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CHART TITLE 
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/ 19 


/ 


66.22— -I* 

I 01 

IB I H 

I 1 1 WTV2 H 

I . I (V, 2fWTK» H 

10 I H 

II! H 


I 

! 

I 02 


V » V/60. 


WTHX » 

FWTILfl*UA2 ♦ 
FXWllF|*SWTILF» 

WTFAN ■ (FWTCLF ♦ 
||*I UTF ♦ WTKI ♦ 
FXWILF ♦ 
1II*SWT(LF ♦ U 


I 

I 

I 03 

* * 

! WTHX - WTHX*2. I 

I WTFAN = WTFAN*2. I 

| pw * PW*2. I 

I TWT * WTHX ♦ I 

I WTFAN ♦ PP*PW I 


I 

I 

I 

• 06 

• * 

* * 

* 

N - 1 * 

• * 


1 -/ 0 ) * 


I • 

I 

I 


I 

66.05*— I I 

I 08 

* * 

I WTHX » WTHX5 I 

I I 

I WTFAN » WTFS I 

I I 

I PW ® PWS I 

I I 

I CFTILFI « UA2S I 

I I 

1 TCO 1 * TC01S I 

I I 

I TC02 =* TC02S I 


I 

I 

I 09 


QT1 « OTIS I 

I 

QT 2 = 0T2S I 

I 

V * VS I 


I 

66.28 II 

20 I 10 


TA02 » TA02 - 2. I 

EFF • ITAI2 - I 

TA02I/ITAI2 - I 

TCI 2 I I 

TB1 • TCI * I 

QTt/EFF/V/RHO/ I 

CPA/60. - OTF I 


I 

I 

I 11 


* * 

I TA01 «= TB1 - I 


I QBl/RHO/V/CPA/60. I 
* * 

I 


• • I 0/+ 1 
TWT - TWTS *-♦ 

• * I 

* • I 



I 



• 12 

* 

• 

* 

* 

* 

* 10/* 

* TE - 

TB1 *-♦ 

* 

* I 

• 

* I 

* 

* I 


* .... 


1 1-1 .66 


I . 10 


I .... 


I 300 

110 

I 13 

1 TAOl « 

TCI ♦ 2. I 


I 1 

I T81 » TE I 

* -- — * 

I 

I 

I NOTE 1 A 

*********** 

* BEGIN 00 LOOP • 

* 200 M = 1, 20 * 


I 

68.12 ) I 

I 15 


V * I 

OBI /R HO/ CP A/ I T 01 I 
- TA01I I 

PW = I 

DP*V/5I0,/CFTl LF I 
♦ II 1 

QT 1 » OB! ♦ I 
3. A 1 A*PW I 


I 

I 

I 

I / 


/ 68 .01 


100 
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SUBR0U1 INE E B A Y 2 C 00 1 , QB2 , TE , TC I , *CPC , R HO , CP A , PP, OP , WTHX .WTFAN , PM , 


67.15 I* 


I 01 

• . • 


I real - tci ♦ i 

I QT1/WCPC i 

i i 

1 TAIl » TB1 ♦ OTF I 
I I 

I DTLMl » CTA01 - I 
I TCI * TAIl ♦ I 

I TC01 ) I 

I /ALOG< ITA01 - I 

t TCII/ITAU - I 

I TCOll) ! 

* — * 

I 

I 

I 02 

* ---- - * 

I UA1 * QTI/0TIM1 I 
I I 


I 

CFT(LF) = UA1 

I 


ft 



ft — 


— ft 


I 

I 



I 



I 

120 * 08 



I 



I 

• ft 



I 

03 


I 

ft • 


ft — 


— * 


I 

ft ft 

to/n 

17 


H 


I 

* TWT - TWTS 

* 

I 4 

FANWT 

H 


I 

ft ft 


I . 

( V, DP » WT F 1 

H 


I 

ft ft 


I 0 


H 


I 

ft ft 


1 1 


H 


I 

* 



I 

— ft 


I 

I 

I 1-1 
I 



I 

I 

04 


I 

I 

I 

I 


ft — 


— ft 


I 

l 


i e 


H 

♦ 


1 i 


1 1 

WTV2 

H 

I 

I 

121 I 

09 

i . 

<V, 2.WTK1 

H 

I 

I *• 


- - * 

10 


H 

I 

I I 

TWTS * TWT 

I 

1 1 


H 

I 

I I 


I 

« — 


— * 

I 

1 I 

WTHX S - WTHX 

I 


I 


I 

I l 

WTF S « WTFAN 

I 


I 

05 

I 

I I 


I 

* — 


— ft 

I 

I I 

PWS » PW 

I 

i 

V = V/60. 

I 

I 

I I 


I 


)* 

UO I 14 

* * 

I WTHX » NTHXS I 

I I 

I WTF AN » WTFS ! 

I I 

I PW = PWS I 

I I 

I TC01 = TC01S I 

I I 

I CFT(LF) = UA1S I 

I 1 

i on => otis i 

* — 

I 

t 
I 

• 

I V 3 vs 

* — 


15 

-ft 

I 


WTHX » 

FWTUFI*UA1 ♦ 
FXW(LF|*SWTIIF) 


WTFAN » (FWTILF ♦ 
1 1*1 WTF ♦ WTrfl ♦ 
FXWILF ♦ 

1 J » *SWT ( LF ♦ 1 » 

I 

I 

I 0 < 

WTHX = 

WTHX* 2 . 

WTFAN * 

WTFAN* 2 . 

PW = 

PW* 2 . 

TWT » 

WTHX ♦ 

WTFAN 

♦ PP*PW 


I 

I 

I 

* OT 

ft 

ft 

ft 

ft 

ft 

* 

ft M 

- l *-■ 

ft 

• 

ft 

* 

ft 

* 


UA1S =» UA 1 

1 


I 



I ft 




TC01S = TC01 

I I 


141 I 

16 


I 

1 

TAOl = TAOl - 2. 


I 

10 I 

I 

EFF = (TAIl - 



---* 1 

I 

TAOl 1 / ( T A 11 - 


OTIS a QTl 

I I 

I 

TCM 


WFS a WTF 

I I 

I 

QT 2 » QB2 ♦ 



I I 

I 

3. 41 4*PW/2 • 


WKS = WTK 

I I 

I 




I I 

I 

TCI2 = TC01 


< 

«/» 

< 

I I 

ft- 


-ft 


ft I 


I 


I 

I 


I 

17 

200 I 

11 I 

ft- 


-ft 



— -ft 1 

I 

T82 = TCI2 ♦ 


TAOl * TA01 ♦ 2 


I 

QT 2/RHQ/V/CP A / 




---ft i 

I 

EFF/60. 


I 

I 

I 

TA02 = TB2 - 


I 

I 

I 

QB2/RH0/CP A/ V/ 60« 


* 12 

I 

I 



* * 

I 

I 

TC02 » TC12 ♦ 


ft * 

I 

I 

0T2/WC PC 


* * 

NO I 

ft- 


-ft 

• END OF DO 

*-♦ I 


I 


♦ LOOP ♦ 

I I 


I 


ft • 

I I 


I 


ft « 

I I 




ft 







I 

I YES 

. 67 . I 

•66.10. 

< ♦! 

I 

I 

. 15 . I 

. . 


I 

l 

I 

I 

I 

... 300 


I 

I 

I 

I 

1 

13 I 



/ / 
/ WRITE TO DEV / 

/ 6 / 

/ VIA FORMAT / 

/ 401 / 


I 

I 
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CHART TITLE - MON- PROCEDURAL STATEMENTS 


DIMENSION FWTI30I.FXWI30I .SWTI30) 

,CFTI30» 

COMMON XI?00»*LA,NPER 

EQUIVALENCE C XI 101 1 ,FWTI 1 1 1 1 (XT 1311 . FXMI1I » ,(X( 161 ) , SWT I l M 
• UI22U»CFTUM 

403 FORMAT 1 1H 'DOUBLE EBAY • f FS.2«* WTHX •,FB.2.« WTFAN • »FB.2» * HTXV 

• ) 

400 FORMAT ( 22H EBAY2 NOT OPTIMIZED I 

401 FORMAT I22H EBAY l NOT OPTIMIZED » 

402 FORMAT I26H EBAY HX CANNOT BE BUILT I 
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CHART TITLE - INTRODUCTORY COHMENTS 


FLASH EVAP SUBROUTINE 
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AlfTOFtOW CHART SgT - H247B 

CHART TITLE - SUBROUTINE FEVAP IQ.WCP.TC I ,L . TCO, WT I 


/ FEVAP / 

11.21* — I* 

SIZING OR PERFORNANCE 



• 

! 

01 

I 

COMPUTE 0 

GO TO 

I 

I 

FOR NPER 

I 





I 

10 

71.02 

l 

I 

U 

72.04 

I 

I 

11 

72.04 

I 


I 



1 

IF OUTSIDE THE 
1 

RANGE 


l 

SIZING-COOLANT 

TEMP 

OUTLET 


71.01 11 

10 1 

02 

TOO LOW 


I TCO » TCI - Q/WCP I 
• * 


IS OUTLET 
LOW 


I 

I 

I 

TEMP TOO 
I 


• 03 



• TCO - 3*. * 

* * 


1 ( 0/*1 

I 


12 I 


I TCO • 34. 


1 


HEAT LOAD 

I 

♦ » i 

I 13 I 

I * 

I ! OR » WCP*C TCI 

I I TCO I 


I 

! 

UA REQUIRED 
1 
I 


04 

-* 

I 


05 


1 

I 



I 06 

* * 

I CFTCLl - I 

I QR/ITCO -30.1 I 


I 

I 


WEIGHT 

I 

I 07 

*-• 

I WT « I 

I I FWT ( L 1*CFT I L I ♦ I 

! FXMILI l*SWTILI I 


I 


WATER USAGE RATE 
I 

I 08 


! WH20 ■ QR/965. I 


I 

IS THIS THE LAST 
ITERATION 

t 

I 

1 

* 09 

• * 

* * 

* * 1-/01 

• LA - 1 *-♦ 

* * I 

• * I 

• * I 

* .... 

I IU . 72 . 
I . 03 . 


4 


15 
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CHART TITLE - SUBROUTINE FEV AP (Q, WCP*TC I *L , TCO.WTJ 


LAST ITERATION-PRINT 


USE MAX TEMP 


71.09 1* 

15 1 01 

/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 51 / 

/ FROM THE LIST / 


I 

I 

I NOTE 02 
*********** 

* LIST a QR, TCI « • 

* TCOf WH20t WT * 
*********** 

I 

71.09* — I I 
l A I 03 


* EXIT * 


PERFORMANCE -MINIMUM 
OUTLET TEMP 


71.01 •—» ♦ 
ll I 


I TOMIN « 30. 
I Q/CF TIL) 


I 

I 



72.08 1* 

16 I 10 

* * 

l TCO = TOMAX l 


I 

I 

HEAT LOAD REJECTEO 


I 

) i 

20 I 11 


I QR = WCPMTCt - I 

I TCO I I 

* • 


I 

I 

I 

WATER USED 
I 
I 

I 12 


I WH20 » I 

I OR/965. *TSUB I 


I 

I 

I 

PRINT 

I 

I 

I 13 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 52 / 

/ FROM THE LIST / 


I 

I 

I NOTE 14 


I 

IS TEMP TOO LOW 

I 

I 

I 

* 05 


* TOMIN - 34. 


* 

• 

l 

I 

TOO 

LOW 

* 

I I0/*» 



16 1 0 


■ 

TOMIN = 34. 




I 

I 

I 


I 


I 




17 I 0 



I 

TOMAX = TCI - 
Q/WCP 


I 

I 

I 

USE LIMITING TEMP 
1 
I 
I 

* 00 


• • C-/OI 

TOMAX - TOMIN * — 


USE MIN TFMP 

)* 

19 1 09 

* — * 

I TCO - TOMIN I 

*-- * 

I 

I 


**••**•**•• 

* LIST = QR, TCI, * 

* TCO, TOMAX, * 

* TOMIN, WH20 * 

*********** 

I 

I 

I 

RETURN 

I 

I 

I 15 

.72.03. 

... 14 


FORMATS 


18 
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DIMENSION FMTf 301 *FXMl 301 • SWT I 301 .CFTC30I 
COMMON XI700) ,LA,NPERfPP 
EQUIVALENCE 

(X(lOl).FMTUI »*(X( nn.FXHl II I, Uf 161 J 9 SWT(1I I. IX(221).CFTm I 
t ( X ( 100) t PERF I » « Xt 7A | , TSU8 I 

St FORMAT (1H0» FLASH EVAPORATOR SIZE */lH F0.W8H QREJ F0.2.0H TCIN 

F8.2.8M TCOUT F8.1.8H UH20 F8.2.8H WEIGHT 1 
52 FORMAT 1 1 HO* FLASH EVAPORATOR PERFORMANCE •/ l H F8.1,0H QREJ F8.2.0H 

TCIN F8.2»0H TCOUT F8.2.8H TOMAX F0.2|0H TOMlN Fft.UBH WH20 

I 
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SUBROUTINE FANWTCCFH.OP.HTI 


/ FANNT / 


06.02*—)* 

NHAT IS SPECIFIC 
SPEED 


* 

I 01 

* * 

I CFH = CFH/60. I 

! I 

I A = C FM/ DP**1 • 5 1 


I 

I 

I 

* 02 

* * 

* * 

* * I-/ 0 ) 

* A - 10. * 

* * 

* * 

* * 

* 

I < + ) 


1 * 

3 I 04 


I NT * 

I 1.3*10. 08*0P ♦ 
I 0.036*DP**.5 ♦ 
I 0.086*1 CFN*DP 1 
I **. 6 ) 


I 

l 


)* 

5 I 05 

* — * 

I NT * I 

I • 086* I CFM*DP I I 

I **.6 ♦ I 

I 0.017*CFM * I 
I 0.13*ICFM*DP> I 

I **.4 - I 


I (0.0075*CFH ♦ I 

I 0.057*1 CFN*DP 1 l 

l **.4)**. 5 I 

* 

I 

I 


I-) * * 10) 

I * NT - 7.8 * 


• * 

I !♦> 


I 

I 

-> I 
I 


I NT = 6.5 ♦ I 
l CFH*. 001*1 3. ♦ I 
I OP) I 


74.04*--) I 

I 

10 * 08 


I 

I 

I 

111 09 

* 

NT = 1.5 I 

1 

1 r c 

12 I 10 


* f XJT 
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CHART TITLE 
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INTRODUCTORY COMMENTS 


CRYOGENIC HX SUBROUTINE 
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SUBROUTINE CRY (Q .MH.Tl N.NC.WH2 I 


23.03* — I* 
OUTLET HOT TEMP 


I 

I 

I 

I S TFMP CONVERGED 
l 
I 
I 

* 06 


ABSITHO - 


I 

I 

IS THIS LAST 
ITERATION 


COMPUTED GO TO 
FOR LA 


• 

• 

• 

• 

I 20 
I 6 


76.11 I 
76.09 I 

I 

I 

I 

I 

I 

(♦1 

IF OUTSIDE 

THE 

RANGE 

t 


PRINT 



• 76.1 

2. 

76.08- — I 
A 


09 


/ WRITE TO DEV / 

/ 6 / 

/ VIA FORMAT / 

/ 51 / 

/ FROM THE LIST / 

I 

I NOTE 10 
*********** 

* LIST * TOC* WH2 » * 

* TH20 * 

I 

76.08*— I II 

i 20 I 11 


NO -M2 OUTLET TEMP 


76.06 1 * 

3 I 


I THO - TIN ' 

Q/WH I 





I TH20 « TM20 - l 

* — •- 






I TOC * THO I 

I 

I 






* * 

I 

F IRST GUESS OF 

H2 





I 

I 

FLOW RATE-OUTLET TEMP 





10 * 13 

I 






*. • 

I 






6 * 

I 

02 





* * NO 

* 






* END OF 00 *-♦ 

I TH20 * (TIN ♦ I 





* LOOP * I 

I THO 1/2. 

I 





• * I 

* — 






* * I 

I 






* .... 

I 






I YES . 76 . 

I 






I . 0* . 

ENTER LOOP 

I 






I .... 

I 

I NOTE 03 





I 

1 


* * * * 





! 

* BEGIN 00 LOOP * 





NOT CONVERGE!) 

* 10 N * If 

10 * 





I 

******* 

* * * * 





I 

I 






I 1* 

76.13 1 I 







I 






/ WRITE TO DEV / 

FLOW RATE-MASS 






/ 6 / 

I 






/ VIA FORMAT / 

I 






/ 50 / 

I 

0* 





/ FROM THE LIST / 

I WC - Q/ITH20 ♦ I 





| 

I *20.1 

I 





I 

* 






1 NOTE 15 

I 






*********** 

! 






* LIST * THO. TOC, • 

I 






* WC. 0. TIN * 

CALL HX SUB 
I 






l 

I 

I 

05 




♦ - 

I 

* — 





I 


17 I 

H 


CONVERGED PRINT 

1 


I 9 I HX 

H 




I 


I . I I O.WH.WC 

. - H 

♦- 


1* 

I 


I 0 I *20. *NC * 

TOCI H 

I 


2 I 07 

I 


l l I 

H 

I 



I 


* 


I 

I 

WH2 * WC/3.12 I 

I 



• EXIT * 



SP 01T72 


10/12/72 .. . ^ AUTOFLOM.JCHAR1 1EI - JI2S.TB ... 

CHART TITLE MON- PROCEDURAL ST ATEHCNTS 


OIMENS1QN. CFTI30J . . 

COMMON XI?QOI,LA,NPER,PP . 

EQUIVALENCE I XI 221 1 , CFTI II I 

50 FORMAT.! IM0* CRYOGENIC MX NOT CONVERGED' / lH.Fa.2_f 8H THO F8.2.0H T 

HOC F8.2*8H WM2CP F8.2.8H OCRV F8.2 V 8H TIN ) 

51 FORMAT I IMO* CRYOGENIC HX PERFORMANCE* /1H F8.2.8H THOTCAL F8.2.8H MH 


YO F8.2»8M TMYDO 


I 



10/12/ 72 — - - 

CHART TITLE - INTRODUCTORY COMMENTS 


„ _ AUTOFLOM CHART £fT r JiZW 


SP 01T72 

PACE 78 


HX OFF DESIGN PERFORMANCE -SENS HXS 



10/12/72- 

CHART TITLE 


AUTDFLOM C-HAflLt «T H*4?B 


SP 01T72 
PAGE 79 


SUBROUTINE MXI Q,NH a NC»TCI .NCOHP, THOI 


7 


HX 



2A.02*— I* 

I S THE MFR -1 


. I 01 

I R » UC/WH I 

* — * 

I 

I 

I 

• 02 


• (-/♦» 


22 


-I* 

I 


EFF = (1. - 
EXPUR - 
l.l/R*CFTINCOMPI 
/NHI 1/(1. /R - 
EXP( (R - 

1. »/R*CFT(NCOMPI 
/UHI ) 


I 


HOT OUTLET TEMP 


I THO ■ TCI ♦ I 
I Q/WHM1./EFF - ! 
I 1.) I 


I 

II — 
I 05 


MASS FLOW RATIO *1 

79.02—1* 

23 I 06 

• * 

I THO » TCI ♦ i 
I Q/CFTI NCOMPI I 

* — * 

I 

I 


* EXIT • 



10/12/72 

CHART TITLE - NON- PROCEDURAL STATEMENTS 


AUTOELOH CHART 


SP 01T72 

PAGE 80 


OIMENS ion cftooi 

COMMON X ( 700 ) »LA» NPER , PP 
EQUIVALENCE 4 X(22l I ,CFTI 1 1 1 



10/12/72 


AUTQCL0II.CHAST_S£I_^:_ H2«8- 


SP 01T72 
PAGE 81 


CHART TITLE - SUBROUTINE MTV2IV.M ( MT> 


/ MTV2 / 


06.07*-- I I 

I 01 

#- — — * 

I COMPUTED GD TO I 

I FOR N I 

* * 

I 3 81.08 ( 

I 4 81,11 I 

I 11 81.02 I 

I 12 81.05 I 

• * 

I 

I 

I 

IF OUTSIDE THE RANGE 
I 

81.01 II 

III 02 

I NT - I 

1 .076 8*V**. *89 I 


* * 

I (-1 

l 

I 

I 

I 

I 

14 I 

I MT « 2.2 


04 

I 


MANUAL VALVES 


01.01 »* 

3 I 08 

* — ' — — * 

I MT - .0229*V**.56 I 



5 


I I- 



10 

-* 

I 


I 

-II 

I 


NT • 

•0053*V**. 725 

l 

I 

I 


• 10/0 

MT - .2 * 1 


07 
- - * 
I 


CHECK VALVES 


81.01- 

4 


-I* 

I 


I NT • 

I . 002 75* V**. 60 6 


10/M * 

( * MT 


I <-> 

I 

I 

I 

I 

I 

I 


-81.03*— M 

10 I 14 


13 
— * 
l 


I 

I 



10/12/ ?2 


AUTQFLO* CHART J*f T - H247& 


SP 01T72 

PAGE 82 


CHART TITLE - SUBROUTINE RAO I T1*T2»WCP»WR» AR»WE ( TV* J) 


/ RAO / 


13*04* — I* 

SET INITIAL VALUES 


COMPUTEO GO TO 

FOR 

NPER 

60 

82.03 

61 

82.04 

61 

82.04 

1 

1 

I 

F OUTSIDE 

THE RANGE 

82.02 II 


60 

0 

AREA 

AHAX 


/ 61 / 

I 

82,02*— II 

I 04 

-* 

I AREA * AACT* 1,002 I 

* — — — * 

I 

n 


62 I 05 

*- — — -* 


I TY » T2 1 

I I 

I B « 2.0E-10 I 

I I 

I ' Tl » |T1 - I 

I 15.1/TS I 

* — * 

I 

I 

I 

* 06 

* « 

• * 

* * I ♦ I 

* TI - 1, * 

* * 

• * 

* • 

* 

n-/o> 

i 

i 

i 

i 

i 

26 I 07 

* * 

1 T2 « Tl I 


)* 

27 t 08 


ZETA = 

• 25*ALOGI IT! ♦ 

i . i / < t i - i.ii ♦ 

• 5*AT ANI T ! I 

ALPHA = 

1.712E-9*EHIS*,7* 

TS**3 


I 

1 


* 09 

* * 

* * 

* • I-/OI 

* TY - TS - 5. *-♦ 

* • I 

♦ * 1 

* ♦ I 

* .... 

I !♦» . 83 . 

I . 01 . 

I 15 

I 

I 

! 


16 



10/12/72 


AUT0FL0W CHART SET - M*470 


SP 01T72 

PAGE 0 3 


CHART TITLE - SUBROUTINE RAO I Tl ,T2* WCP*WR* AR, WE# TV# J I 


OUTLET TEMP TOO HIGH 


AREA TOO SMALL - 
INCREASE HEAT LOAD 


82.09— r|* 

18 I 01 


I TY - TS ♦ 6. 1 

*- < • 

I 

82.09 I I 

16 I 02 

* 

I TO « (TY - 5.1/TS I 

I 1 

I beta « B*TS**3 . I 


I 

I 

I 

ENTER LOOP TO 
CALULATE REQUIRED 
AREA 

I 

I 

I NOTE 03 
*********** 

* BEGIN DO LOOP • 

* 25 I ■ 1, 100 • 


I 

83.17 1 1 

I 

Q PER UNIT AREA 
I 
I 
I 


I QA * ALPHA*! T1 - I 
I T Y I I 

I / ( ( . 25*ALOG( ( TO ♦ ! 
I l.l/ITO - l. 1 1 ♦ I 
I . 5*ATAN I TO 1 - 1 

I ZETA ♦ I 

I BETA*AL0G1!T 1**4. I 
I - 1 * l/( T0**4. - I 
I ! .1 111 I 

* • 



)* 

I 

65 * 08 

• * ♦- 

• * I 

* * I-/OI I 

* ABS ( AREA - * 

* ARI - 25. • 

* • 

* * 

* 

I <*> 

I 

I 

I 


LOOP CONVERGED 
-RADIATOR WT 


83.08*— I* 

68 I 11 


t AR * AREA I 

* * 

1 

* 1 i 

l ll I 12 

I *-- — .......... * 

II WR * I 

I I AR*SWTI JltFXWlJl I 

| * • 


83.09 )* 


67 

1 15 

TY 

■ TY - l. I 

83.14- 

25 

1 

— 1 I 

! 16 

Tn » 

(TY - 5.1/TS I 


I 

I 

I 

* 17 


* • 

• * NO 

* END OF 00 *-♦ 

* LOOP * 1 

• * ( 

* * I 

* .... 

I YE S . 83 . 

I . 04 . 

I .... 

I 

I 

I 

PRINT LOOP DIO NOT 
CONVERGE 

I 

I 

I 18 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 50 / 

/ FROM THE LIST / 


I 


I AR » WC P * I T 1 - 
I TYI/QA 

* ——-—— — - - 
I 
I 
l 

COMPARE WITH AREA 
I 
I 


AREA - AR 



I 06 

I 


• 11 . 1 

* — 


1 


.... I 

I COMPUTED GO TO I 

I 


68 I 

I FOR 

NPER I 

1 


I 

* 


l 


I 

1 63 

03. 07 I 

I 


I 

I 64 

83. 10 I 

I 


... 

I 64 

83.10 1 

I 


■ • 

* 


1 


.83.15. 


I 

I 


• • 


1 

1 


... 67 

IF OJTSIDE 

THE RANGE 

I 



83.06 M 

t 



63 

* 07 

1 



* 

* 

I 



* 

* 

I 



* 

• (0/*l 

I 



* FR AO 

- 1 . * 

— ♦ 

♦- 

03.06*— 1* 

* 

* 


I 

I 

• 

• 


I 

64 * 10 

* 

* 


1 

* * 


• 


I 

* * 


I (“I 


I 

* * 




I 

* AREA - AR 




I 

* ♦ 




1 

• * 




1 

• * 




I 

* 


I 

I 

I 

IS THIS THE LAST 
ITERATION 

1 

I 

I 

* 13 

* * 


* • 

1*1 


I NOTE 19 


AREA TOO LARGE - 
REDUCE HEAT LOAD 


-83.09* — 1* 
10 I 


14 

--* 

I 


* LIST a Tl, T2» • 

* TS. TY * 

«****•*•*•* 

I 

I 


I 

l PRINT-LAST 
I 

♦ I* 

12 1 20 

/ WRITE TO DEV / 

/ 6 / 
l VIA FORMAT / 

/ 81 / 

/ FROM THE LIST / 

I 

I 

I NOTE 21 

*********** 

* LIST a Tl, T2 , * 

* TY, AR. AMAX, WR * 
***•***•••* 

I 

82.07*— IK 

22 1 22 

• EXIT * 


25 



10/12^72 


AUTQFLOH CHART SET - H2478 


SP 01T72 
PAGE 84 


CHART TITLE - NON- PROCEDURAL STATEMENTS 


DIMENSION F*T 15t,FXW 151, SMT 15( 

.CFTI30I 

COMMON XI700I ,LA,NPER,PP 
EQUIVALENCE 

IXa0ll.FMTini,IXI13ll,FXMm»,IXIl61),SMTUll 
, X 39 ( *FW9 t , X 401 » FW101 • X 471, TSt, X 49(,AMAX(, X 50(,FEXP( 

, X 22 It ,CFT IH, X 78 ( , EMI St » X 59(,FRAD{, CFT 7I,AACT( 

SI FORMAT t IHO' RADIATOR SUBROUTINE '/F8.2,« TIN ',F8.2,' TOUT »,F8.Z, 

• TOUTC •.FS.Z,* ARAOC • » F 8. 2 » * ARMAX* , Ffl, 2 , • HTREQ • » 

SO FORMAT IlHO'RAD NOT CONVG* /F8.2, ' TIN , ,F8.2, # TOUT *,F8.2,' TSINK 


• , F8, 2, • TOUTC • 1 



10/12/72 

CHART TITLE - INTRODUCTORY COMMENTS 


AUTOFIOH C8W_Sei_-^H2*TB - 


SP 01T72 
PAGE 85 


CONOENSER PERFORMANCE SUBROUTINE 



— * ■ SP01T72 

10/12/72 _ ! — - AtflOfUHUCMAftl _SET ‘ H2 47B_ PAGE 86 

CHART TITLE - SUBROUTINE CX 2 l«C t TCI.QS»S 7 TC.QS 27 (^ 2 .V,P,HL, K,TCOmTf ‘iTOSXI ~ 



I 

I 05 

• • 

I WH - UAH I 

* — * 

I 

I 

I 

H20 CONOENSED 
I 
I 

I 06 

* — — • 

I UH20 « <QL ♦ I 

I QL2I/1065. I 

* * 


I 

I 

I 

MIN AIR OUTLET TEMP 
I 

I ♦ 

I 07 I 

* • f 

I TAMIN » TCI » 2. I I 

* * I 

I I 

I I 

I I 

FAN MEAT LOAO ! 

I I 

I I 

I 08 I 

* * [ 

I OF * P*3.414 I I 

* * , 

I f 

1 I 

I I 

MAX HX SENS LOAO I 

I I 

I I 


I 

I 

AIR OUTLET TEMP 
I 


1 

I 

I 

* — 

13 

— * 

I 

I TAO • T A I - 

I 

I 

I QSMAX/WH 

I 

I 

I 

1 


I 

I 

I 

I 

SET SENS LOAD*MAX 
I 


I 

I 

I 

I 

14 

I 

I QSX > OSH AX 

I 

I 

I HA - 0 

I 

I 

I MB ■ 0 

I 

I 10 I 

I 



I 


I QSMAX = QS ♦ I I 

l 


1 0S2 ♦ OCAV I I 

IS TAO TOO LOU 


I I 

I 


I I 

I t 

I 

* 15 


IS THIS A SINGLE HX I 

• * 


SYSTEM I 

* * 


I I 

* * 

I- 

I I 

* TAO - TAMIN 

*-♦ 

I I 

* * 

I 

* 11 I 

♦ * 

I 

* * I 

» * 

I 

* * I 

• 


♦ • I-/OI I 

l!0/»l . 

87 

* K • ♦ 


01 

♦ * 

I 

, , ,, 

* * 

I 

104 

» • 

I 


* 

I 


I <♦! 

1041 I 

16 

I 

*--- 

— * 

I 

I M * 0 

I 

I 

I 

— ___ 
I 


I 

I 


. • 

. . 


. 86.17. 

.87.05. 


. ■ 

. . 


... 102 

... 103 



.87.05. 
... 103 



AUTQELQH CHMlLtfJL*Ja.4».. 


CHART TITLE - SUBROUTINE CX2(HC»TCt.QS.aL*TC*QS2*QL2*V*P*NL#K»TCO*Vll*I.QSXI 


TOO LOW -SET OUTLET 
TO MIN 


86.15 ) * 

104 I 



QMET H 

IQSM.TC.TCN, H 
QSN.KL) H 


Q$X - QSX ♦ OSN - 
OSH 


QSHAX » OSHAX ♦ 
OSN - OSH 


TAO ■ TAI - 
QSX/ WH 


0* 

• 

QSM “ I 


1» 

I 

INLET VAPOR PRESS 
I 

I 08 

I PXl • (WWO ♦ I 
I WH20I*. 595* (TAO ♦ I 
I 459.61 /V/WH*WAM I 


INLET OEM POINT 


KANDK 

(PXI.TDP.il 


I •.595PT0P/V/MHP I 


KANDK 

IPXl.TDP.il 


COOLANT TEHP WHERE 


WH20 » CQL ♦ 
OL2I/1065. 


ENTE* LOOP TO CAL 
U A/FLOW/TC 

I 

86. 1 6* — I I 

103 I NOTE 05 
* * • •*****•• 

• BEGIN DO LOOP • 

* 200 NP « 1. 20 • 


92.15—1 I 

I 

OUTLET DEWPOINT PRES 
I 
I 

I 06 


KANOK 

( PXO.TAO ♦ 
459.6.21 


WATE* LEAVING HX 
I 
I 

l 07 

• * 

| WWO « I 

I (PXO/O.595/1 TAO ♦ I 

I 459.6) l*V*WM/WAM I 


COND STARTS 
I 
I 
I 


AIR TEHPS TOO LOW 


TOP - 460.6 I 


HX TOTAL LOAD 


I QT - OSX ♦ QL ♦ I 
I 0L2 I 


COOLANT OUTLET TEHP 
I 
I 

I 14 

• 

I TCO « TCI ♦ QT/WC I 


IS COOLANT OUTLET 
LOWER THAN TAI 


j* 

I 

* 16 
4 • 

♦ • 

* * 1-/01 
* TAI - TCO ♦ 


I TAI * TCO ♦ 1. 1 

l I 

I TCN = TAI - (OF ♦ l 
I QCAVI/WF - QS2/WH I 


14 I QMET 

I. I (OSH.TC.TCN. 
10 I QSN.KLI 


OSX » OSX ♦ OSN 
QSM 


QSM AX = QSHAX 
QSN - QSM 


TAO = TAI - 
QSX/WH 


QL - QL ♦ QSM - 
QSN 


WH20 = I QL ♦ 
0L2) /I 065. 


152 


200 



■' ~ ----- -* - SP01T72 

10/12/72 - - AUTQFLQM CHART_SET - H267B . . PAGE 88 

CHART TITLE - SUBROUTINE CX2< WC.TCi. OS. QLrTC,QS2,QL2, V,P,NL.K.TCO.Vll,I,QSX) “ 


HEAT IN WET SECTION 


87.16 — -I* 
152 I 


I 3W = *C*ITY - I 
I TCI) I 


I 

I 

IS HX ALL WET 
I 
I 
I 


.39.05. 

... 1 5* 


HX ORY- QDRY 
1* 


AIR OUTLET 


TAOD » TAI - 
QD/WH 


I 

I 

I 

IS THERE A TEMP PINCH 
PROBLEM 

I 

I 


HX TOO SMALL-HAS MAX 
FLOW BEEN REACHED 

— 08.05* — I* 

1 

108 * 06 


• 89.01. 
... 156 


-»• 

I 


* * 1-1 
* WH - WAM ♦ .1 *-♦ 

* * I 

* * I 

* * I 

* .... 

1(0/*) . 91 . 

I . 10 . 

i in 

i 
i 
I 


112 



SP 01 T 72 
PAGE 89 


10/12/ 72 


AUTOFLOH CHART $.E? - K 2 * 7 B _ 


CHART TITLE - SUBROUTINE CX2< WC»TCI t QS, OL , TC »QS2,QL2,V,P ,NL,K» TCO. Vll . ! *QSK» 


INTO 


NO DRY SECTION 


88.05 1* 

156 I 01 


l OT = (TAI - TCO - I 
I TAOD ♦ l 
I TY 1 /ALQGI (TAI - I 
I TCOl /(TAOD - TY II I 
* — * 


I 

1 

1 

DRY UA 

I 

I 

! 02 

* — * 

I U AO « QD/DT I 


I 

I 

I 

GO TO NET SECTION 
I 
I 

I 03 


. 89 . 06 . 

... 157 


88.02 1 * 

15 * I 05 

* 



I 





I 

SUBROUTINE 



1 

CONVERGED-PRINT- 



I 

HX 

FLOW RATE 


I TY * TCO 

I 





I - 


. 0 **— »* 


t TAOD - TAI 

I I 

* — 

250 1 

11 
- * 

I QM * OT 

I I 

I 

WHX = 

I 


- • [ 

I 

WH/CPA/RH 0 / 60 . 


I 

I 

I 

TFANI = TC ♦ 

I 

I 

I 

I 

QCAV/WF 

I 

WET LMTD 

I 

! 




1 

I 

TPftNO » TFA*I • 


89 . 03 — -I l 

I 

I 

QF/WF 

1 

157 I 

06 I 

* — 


' * 

• — — — 

-• | 


• 


I DT » ( TAOD - TY - 





I TAO ♦ 

1 I 




l TCI l/ALOGI (TAOD - 


CABIN 06 W POINT 


1 TTI/ITAO - TCI 1 1 

I I 


I 


1 UAW • IOSX - 

I I 


1 

12 

I QOI/DT 

I I 



* 


«* | 

I 

PXC = (WWO ♦ 



I 

l 

QL/ 1065 . » 

I 


I 

1 

*. 595 * < TAO ♦ 

1 

I 

I 

I 

* 59 . 61 /V/WH*WAM 

I 

TOTAL UA REQ 

I 


I 


I 

I 


I 


I 

07 I 


I 

13 

( UAR > UAD ♦ UAW 

I t 

I 

I 

H 


-* I 

I 

I KANOK 



I 

I 

I (PXC, TDPC, U 

H 


I 

I 

I 

H 

I 

08 I 

I 

I 

H 






/ WRITE TO DEV 

/ I 


I 



/ 6 / 
/ VIA FORMAT / 

/ 703 / 

/ FROM THE LIST / 


I 

I NOTE 09 


* LIST « UAR, * 

* CFTINLI. WH, TAI, * 

* TAO. TC ♦ 


l 

I 

IS UA WITHIN 
TOLERENCE 

I 

I 

I 


* ( 0 /*l 

MB - l * ♦ 


1571 * 0* 

• • 

• * 

* ABSIUAR - • (-/01 

* CFTINLII - *“♦ 

* TOlG*CFT ♦ I 

• I Nil • I 

• * I 

I (*l • 89 . 

I • 11 • 

I 2 50 

I 
I 
I 


I 

I l * 


♦ --- * 

I PXC * (WWO ♦ I 
I QL/1065. I I 
I *. 595 *TDPC/V/WH* I 
I WAM I 


I 

I 

I 15 


H 

KANDK H 

(PXC, TDPC, H H 
H 
H 


I 

I 

I 16 


I TDPC = TOPC - I 
I * 59.6 I 


I 

I 

I 17 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 702 / 

/ FRCM THE LIST / 


I 

I 

I NOTE 18 
*«***••••*• 

* LIST = TC, TAI, * 

* TAO, WHX, TOPC. * 

* QSX, GSM, 01 , ♦ 

* TFANI, TFANO ♦ 


• • * * 

92 . 18 - 

300 

• ****' 
l 

— ) I 
1 

» * 

19 

l QLM 

3 QM - OSM 

I 


I 

I 

I 20 


* 

FXIT ♦ 

..... 



10/12/72 


AUTQFL0M CHAU -SET.. - H24TB 


SP 01T72 

PAGE 9 0 


CHART TITLE - SUBROUTINE C X2 I WC.TCi ,QS, QL.TC ,QS2,QL2 • Vt Pt NL , K, TCQ. Vll* I »QSX I 


NOT CONVG - 

IS THERE 

2 






HXS 








89.04 1 * 








158 * 

01 







* 

* 







• 

• 







* 

* 1 - 

VOI 






* K 

*- 

♦ 






* 

* 

I 






• 

• 

I 

SINGLE HX I 

:suar 



* 

*' 

I 

GREATER 

UAA 




* 


I 






1 

(♦1 

♦ 






! 



105 

* 

02 



! 




• 

* 



I 



* 


* 



I 



( 0 > * 


* 1-1 



I 



♦ UAR 

- CFTINLI * 



. , 

. 


I * 


• 

I 



« 


I * 


* 

1 

HX LARGE 

.92. 

08. 


I 

* 

* 

I 

•TAHIN 

• 

. 


.... 

* 


I 


, . 

. 106 


. 89 . 

I 

«♦! 

♦ 





. 11 . 

1 







• • • • 

I 



107 




250 

I 





• 06. 

.. 100 


♦ * (-/ 0 > 

TAO - T AH IN *-♦ 

* * ! 

* • I 

* * I 


!♦> 


• 89 . 
. 11 . 
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AUT0FL0W CHART SET - H247B 


CHART TITLE 


SUBR OUT INE CX2 I WC.TCI » Q5, QLt TC . QS2*QL2* V, P #NL , K, TCO * VI 1 # I »QSX ) 


REDUCE AIR FLOW 


INCREASE AIR FLOW 


90. 03——— ) * 
I 


109 


* 

01 


• 

• 


* 



• 

• 



* 1- 

* 

M 

- 1 

*■ 

• 



* 

* 



* 


* 

* 




* 




IIO/H 


I 

I 

I 

I 

I 

1092 I 02 


19 I 


H 

14 I 

QMET 

H 

I. I 

IQSH.TC.TC 

- H 

10 I 

l.« QSN, KLI 

H 

11 I 


H 


*- — - ♦ 


I 

I 


I 03 

I 

QS 

« QS ♦ QSN - I 

I 


QSM l 

I 

OL 

■ QL ♦ QSN - I 

I 


QSN 1 

I 

OSMAX * OSM AX ♦ 1 

I 


QSN - QSM I 

I 

QSX 

* OSX ♦ QSN - 1 

I 


QSM I 


I 

I 

I 04 


>* 

1091 t 


06 


I TAO - TCI ♦ I 
I I T AO - I 

I TCI l*UAR/CFT(NL) I 

I WM - QSX/CTAI - I 
I TAOI I 

* ----- * 


I 

I 

CALCULATE TAI 
I 
I 

I 07 

* * 

I TAI - TC ♦ IQF ♦ I 

I QCAVJ/WF ♦ QS2/WH I 

I I 

! TAO - TAI - I 
1 OSX/WH I 


I 

I 

I 

IS AIR OULET TOO LOW 
I 


I 

• 08 
• * 

• * 

• • l-l 

• TAO - T AN IN * — 

• « I 

* • I 


TAO TOO LOW 


68.08 ) * 

111 I 10 

♦--- — — 

I WH » QSX/ITAI - l 

I TAO - .2) l 

I 1 

I TAI * TC * I OF ♦ I 

I QCAVl/WF ♦ QS2/NH I 

I 1 

I TAO = TAI - I 
I QSX/WH I 

* 

I 

I 

1 


.92.15. 
... 200 


»— * 

I QSM • OSN I 

I I 

I WH20 *= IOL ♦ I 

I OL 2 ) / 1 065 • I 

I 1 

I TC - TC - 1. I 

I 1 

I TAI * TC ♦ IQF ♦ I 

1 QCAVl/WF ♦ l 

I QS2/WAM I 


I 

I 

I 05 

• T * 

I TAO * TAI - I 
I QSMAX/WAN I 

I * 

I MA • 1 I 

- * 

1 

I 

I 


• * 


1 1 0/M 


I 

I 

1 


I 


•92.15. 

... 200 


— )* 

110 I 09 


I WH « IQSX - I 

I QS2I/ITC ♦ IQF ♦ I 
I QCAVl/WF - TAHINI I 
I I 

I TAO - TAMIN I 

I I 

I TAI - QSX/WH ♦ I 
I TAO I 

• * 

I 

I 

I 


•92.15. 

. • 
... 200 


92.15, 
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CHART TITLE - SUBROUTINE CX2 I WC.TCI . QS» QL f TC .QS2.QL2, V, P, ML, K, TCO, Vil , I , Q$XI 


CHANGES TO CX2 
SUBROUTINE 


8.07*— I* 
112 I 


19 I 
14 I 
I. I 

10 I 

11 I 


QMET 

( QSM * TC# TC ♦ 
1. .QSN.KL) 


I 
I 
I 

NEW SENSIBLE LOAD 
I 
I 
I 

I OS « QS ♦ 0 
I QSM 


I 
I 

NEW LATENT LOAD 
I 
I 
I 

* 

I QL a QL * QSM - • 

I QSN j 

t> _ 

1 
l 
I 


I til 


NEW MAX HEAT LOAD 
SENSIBLE 

I 

I 

I 04 

* * 

I QSMAX a QSMAX ♦ I 
I QSN - QSM I 


p 

TWO HXS 

IS HX TOO 


HX TOO LARGE -RAISE Q 


SMALL 



IS TAO TOO LOW 


90.01 — 

- )* 

• 


01 

106 

* 00 

l 

114 * 10 

--* 


* * 

I 

* * 

H 

* 

* 

I 

• • 

H 

(0) * 

• 

1-1 I 

* * C-/0) 

H 

♦-* UAR 

- CFTINLI *- 

— — 

• TAO - TAMIN *-♦ 

H 

I * 

* 


* * I 

H 

I * 

• 


* . i 


I 

* * 


. . i 


• ••• 

* 


* .... 


. 89 . 

I (♦) 


I I ♦ ) . 89 . 


. 11 • 

I 


I . 11 . 


• • • . 





250 

I 


I 250 

02 


I 


I 

*-* 

* — 

— ♦ 


116 I 11 





* 

I 

I 



1 TAO * TCI ♦ I 


I 



I I TAO - I 


I 



I TCI>»UAR/CFTCNLI I 


l 



* * 

I 


I 

I 



I 

IS OUTLET TEMP TOO 

03 

I 



LOW 

-* 

I 

I 



I 

[ 

-• 

I 

I 



* 12 


HX TOO SMALL-LOWER QS 

)* 

113 I 09 


I TAO * TCI ♦ I 
I I TAO - I 

I TCI I *UA R/C FT ( NL I I 
I I 


-• TAO - TAM IN * 


I (-> 

I 

I 


I QSX = QSX ♦ QSN - I 
1 QSM I 

I I 

I OSM * QSN I 

* — 

I 

I 

I 

NEW H/.O REMOVAL 

I 

I 

I 05 

• 

I rfH?0 = ( QL ♦ I 

I QL 2 I / I 065 • I 


I 

I 

I 

UP CABIN TEMP 
I 
I 

I 06 

* * 

I TC - TC ♦ 1. I 


I 

I 


AIR INLET TEMP 
I 
I 

I 07 

* — * 

I T A I « TC ♦ IQF ♦ I 

I QCAVI/WF ♦ I 

I QS2/WAM I 

1 I 

I TAO » TAI - I 

I QSMAX /WAM I 

* « 

I 

I 

I 


.92.15. 
... 200 


I QSX « WH* ( TA I - I 
I TAO) I 

* * 

I 

I 


I 

I 

I 

118 I 13 

*— — — — * 

I TAO a TAMIN I 

♦ * 

l 

> I 

119 I 14 


I QSX a WH* ( T A I - I 
I TAO) I 


1 

! 

I 

ENO OF LOOP 
I 

— 87.20*—) I 
I 

200 * 15 

* * 

* * 

* * NO 

* END OF DO 

* LOOP * I 

* * I 

♦ ♦ I 

♦ .... 

IVES . 87 . 

I • 06 . 

I .... 

I 

LOOP NOT 
CONVERGEO-PRINT 
I 


I 16 


/ WRITE TO OEV / 
/ 6 / 

/ VIA FORMAT / 

/ 701 / 

/ FROM THE LIST / 


♦ 

• I NOTE 17 

I *********** 

I * LIST « UAR , • 

I * CFTINl ) » T A I f * 

I * TAO, WH, WAM, * 

I * QSX, OSM, QL * 

1 ***•*•««•** 

1 I 

1 I 

I I 

I SET I 

I I 

I I 

I I 18 

I •- * 

I I I «= 1 I 

I * * 

♦ I 
I 
I 


300 
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DIMENSION PNTI 301 .FXUI 30) tSNT I 30) ,CFT 1301 
COMMON XI 700 I .LA.NPER.PP 
EQUIVALENCE 

IXIlOll.PMTIll ).IXI131I,FXMI 11 1 ,1X1 1611 ,SMT 1 1 1 I , I X 1 221 1 tCFTU II 
, I XI68 I .TOLOI ,IXI2I,PCA8I.IXI3I.RAI.IXIA0 1, CPA I 
. IXI 121. QSHI. IXI14I, OLMI .IXI8AI.0CAV I 
703 FORMAT 1 1H &F10.2I 

701 FORMAT 1 1H0 'CONDENSER NOT CONVERGED • /F 8. 1, 'UAREQ • ,F8. 1» • UAAVAI 

L ' ,F8.2t 1 TAI • ,FB,2 t • TAO '.FB.l,' MAIR ••FB.l,' HAHAX 

•.F8.1.8H QSEN /1H F8.1.8H QSMET F8.1.8H OLMET I 

702 FORMAT 1 I HO' CONOENSER PERFORMANCE */ F8.2,* TCAB •,F8.2,* TAIRI 
• . F8.2 , * TAIRO '.FB.l.' HXCFM •.F8.2,* TDPCAB '.F8.1.' QSENS * 
.F8.1.8H QSMET F8.1.8H QLTOT /FB.2.8H TFANI F8.2.8H TFANO I 
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CHART TITLE - SUBROUTINE QHETlQl.Tl, T2.Q2.K1 


/ QMET / 


28.01*— I* 


SUBROUTINE CALCULATES 
NEW LATENT-SENSIBLE 
SPLIT 

I S TEMP TOO HIGH 


ORIGINAL QS 


-»* 

I 


I 

• - — 

— * 

T 

I I 

H 

I 

I I UNBAR 

H 

I 

I I < XI 50 1 1 ,1,T1, 

H 

I 

I I O.fQOtKl) 

H 

I 

I I 

H 

• •• 

*- — — 

— * 

• . 

I 


.94.05. 

I 


... 3 

NEW QS 



I 



I 

03 





1 I 

H 


I I UNBAR 

H 


I I (XI 5011 .1 »TZ» 

H 


I I 0..QN.K2) 

H 


I I 

H 


I 



1 



I 



NEW SENSIBLE 



I 




04 


* - 

— • 


I Q2 - 01*11. - 

I 


I IQO - QNI/QOI 

I 


I K * K1 ♦ K2 

I 





NO SENSIBLE HEAT LOAO 

94.01 — 1 * 

3 I 05 

* — * 

l Q2 * 0. I 

I K = 0 I 

* * 

I 

) i 

4 I 06 

* EXIT ♦ 
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COMMON XITOOl.LAtNPEA.PP 



